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

[stas]

stas        2003/03/17 21:48:04

  Modified:    lib/Apache Build.pm
  Log:
  always upcase the query key, incase it was requested lowercased (the
  lowercased works with the real apxs query, but when it's emulated it must
  be upcase.
  
  Revision  Changes    Path
  1.113     +1 -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.112
  retrieving revision 1.113
  diff -u -r1.112 -r1.113
  --- Build.pm  13 Mar 2003 06:10:46 -0000      1.112
  +++ Build.pm  18 Mar 2003 05:48:04 -0000      1.113
  @@ -89,7 +89,7 @@
   
       my $query_key;
       if ($is_query) {
  -        $query_key = 'APXS_' . $_[1];
  +        $query_key = 'APXS_' . uc $_[1];
           if ($self->{$query_key}) {
               return $self->{$query_key};
           }