You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/05/08 07:17:24 UTC
cvs commit: modperl-2.0/Apache-Test/lib/Apache TestConfigParse.pm
dougm 01/05/07 22:17:24
Modified: Apache-Test/lib/Apache TestConfigParse.pm
Log:
local $_
Revision Changes Path
1.4 +1 -0 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.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- TestConfigParse.pm 2001/04/25 04:35:20 1.3
+++ TestConfigParse.pm 2001/05/08 05:17:24 1.4
@@ -222,6 +222,7 @@
my $cmd = "$httpd -v";
open my $v, '-|', $cmd or die "$cmd failed: $!";
+ local $_;
while (<$v>) {
next unless s/^Server\s+version:\s*//i;
chomp;