cvs commit: modperl-2.0/lib/Apache Build.pm

[dougm]

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 {