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/Apache-Test/lib/Apache TestConfigParse.pm
Date Wed, 25 Apr 2001 04:35:21 GMT
dougm       01/04/24 21:35:21

  Modified:    Apache-Test/lib/Apache TestConfigParse.pm
  Log:
  save some more info from httpd -V
  
  Revision  Changes    Path
  1.3       +10 -4     modperl-2.0/Apache-Test/lib/Apache/TestConfigParse.pm
  
  Index: TestConfigParse.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestConfigParse.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- TestConfigParse.pm	2001/04/13 00:28:46	1.2
  +++ TestConfigParse.pm	2001/04/25 04:35:20	1.3
  @@ -192,11 +192,17 @@
       open my $proc, '-|', $cmd or die "$cmd failed: $!";
   
       while (<$proc>) {
  -        next unless s/^\s*-D\s*//;
  -        s/\s+$//;
           chomp;
  -        my($key, $val) = split '=', $_, 2;
  -        $self->{httpd_defines}->{$key} = $val ? strip_quotes($val) : 1;
  +        if( s/^\s*-D\s*//) {
  +            s/\s+$//;
  +            my($key, $val) = split '=', $_, 2;
  +            $self->{httpd_defines}->{$key} = $val ? strip_quotes($val) : 1;
  +        }
  +        elsif (/(version|built|module magic number):\s+(.*)/i) {
  +            my $val = $2;
  +            (my $key = uc $1) =~ s/\s/_/g;
  +            $self->{httpd_info}->{$key} = $val;
  +        }
       }
   
       close $proc;
  
  
  

Mime
View raw message