stas 2004/09/21 16:47:13
Modified: perl-framework/Apache-Test/lib/Apache TestConfig.pm
Log:
-T disallows any relative directories in the PATH, not only ".". besides
the previous cleanup pattern was not so good, which was my fault :)
Revision Changes Path
1.247 +3 -3
httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
Index: TestConfig.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
retrieving revision 1.246
retrieving revision 1.247
diff -u -u -r1.246 -r1.247
--- TestConfig.pm 21 Sep 2004 05:39:23 -0000 1.246
+++ TestConfig.pm 21 Sep 2004 23:47:13 -0000 1.247
@@ -1017,9 +1017,9 @@
# Temporarly untaint PATH
(local $ENV{PATH}) = ( $ENV{PATH} =~ /(.*)/ );
- # -T doesn't like . in the PATH
- $ENV{PATH} =~ s#(^|:)\.[/\\]?(:|$)##;
-
+ # -T disallows relative directories in the PATH
+ $ENV{PATH} = join ':', grep !/^\./, split /:/, $ENV{PATH};
+
my $handle = Symbol::gensym();
open $handle, "$cmd|" or die "$cmd failed: $!";
