perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/Apache Build.pm
Date Thu, 13 Sep 2001 02:01:31 GMT
dougm       01/09/12 19:01:31

  Modified:    lib/Apache Build.pm
  Log:
  cache apxs queries
  
  Revision  Changes    Path
  1.47      +13 -1     modperl-2.0/lib/Apache/Build.pm
  
  Index: Build.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v
  retrieving revision 1.46
  retrieving revision 1.47
  diff -u -r1.46 -r1.47
  --- Build.pm	2001/08/26 03:38:27	1.46
  +++ Build.pm	2001/09/13 02:01:31	1.47
  @@ -38,7 +38,19 @@
   
   sub apxs {
       my $self = shift;
  +
  +    my $is_query = (@_ == 2) && ($_[0] eq '-q');
  +
       $self = $self->build_config unless ref $self;
  +
  +    my $query_key;
  +    if ($is_query) {
  +        $query_key = 'APXS_' . $_[1];
  +        if ($self->{$query_key}) {
  +            return $self->{$query_key};
  +        }
  +    }
  +
       my $apxs;
       my @trys = ($Apache::Build::APXS,
                   $self->{MP_APXS},
  @@ -74,7 +86,7 @@
           }
       }
   
  -    $val;
  +    $self->{$query_key} = $val;
   }
   
   sub apxs_cflags {
  
  
  

Mime
View raw message