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;