svn commit: r123292 - /perl/modperl/trunk/lib/Apache/Build.pm

[randyk]

Author: randyk
Date: Fri Dec 24 08:04:01 2004
New Revision: 123292

URL: http://svn.apache.org/viewcvs?view=rev&rev=123292
Log:
s/defined/exists/ && s/who_am_i/caller_package/g


Modified:
   perl/modperl/trunk/lib/Apache/Build.pm

Modified: perl/modperl/trunk/lib/Apache/Build.pm
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache/Build.pm?view=diff&rev=123292&p1=perl/modperl/trunk/lib/Apache/Build.pm&r1=123291&p2=perl/modperl/trunk/lib/Apache/Build.pm&r2=123292
==============================================================================
--- perl/modperl/trunk/lib/Apache/Build.pm      (original)
+++ perl/modperl/trunk/lib/Apache/Build.pm      Fri Dec 24 08:04:01 2004
@@ -152,7 +152,7 @@
     my $query_key;
     if ($is_query) {
         $query_key = 'APXS_' . uc $_[1];
-        if (defined $self->{$query_key}) {
+        if (exists $self->{$query_key}) {
             return $self->{$query_key};
         }
     }
@@ -185,27 +185,27 @@
 }
 
 sub apxs_cflags {
-    my $who = who_am_i(shift);
+    my $who = caller_package(shift);
     my $cflags = $who->apxs('-q' => 'CFLAGS');
     $cflags =~ s/\"/\\\"/g;
     $cflags;
 }
 
 sub apxs_extra_cflags {
-    my $who = who_am_i(shift);
+    my $who = caller_package(shift);
     my $flags = $who->apxs('-q' => 'EXTRA_CFLAGS');
     $flags =~ s/\"/\\\"/g;
     $flags;
 }
 
 sub apxs_extra_cppflags {
-    my $who = who_am_i(shift);
+    my $who = caller_package(shift);
     my $flags = $who->apxs('-q' => 'EXTRA_CPPFLAGS');
     $flags =~ s/\"/\\\"/g;
     $flags;
 }
 
-sub who_am_i {
+sub caller_package {
     my $arg = shift;
     return ($arg and ref($arg) eq __PACKAGE__) ? $arg : __PACKAGE__;
 }