Diff of /httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm

Parent Directory | Revision Log | Patch

--- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm	2004/12/04 17:23:56	109815
+++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm	2004/12/04 17:39:25	109816
@@ -1037,11 +1037,14 @@ sub open_cmd {
     # untaint some %ENV fields
     local @ENV{ qw(IFS CDPATH ENV BASH_ENV) };
 
-    # Temporarly untaint PATH
+    # Temporarily untaint PATH
     (local $ENV{PATH}) = ( $ENV{PATH} =~ /(.*)/ );
     # -T disallows relative directories in the PATH
     $ENV{PATH} = join ':', grep !/^\./, split /:/, $ENV{PATH};
 
+    # launder for -T
+    $cmd =~ /(.*)/; $cmd = $1;
+
     my $handle = Symbol::gensym();
     open $handle, "$cmd|" or die "$cmd failed: $!";