Author: stas Date: Sat Dec 4 09:39:25 2004 New Revision: 109816 URL: http://svn.apache.org/viewcvs?view=rev&rev=109816 Log: fix Apache::TestConfig::open_cmd to run properly under -T
Modified: httpd/test/trunk/perl-framework/Apache-Test/Changes httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm Modified: httpd/test/trunk/perl-framework/Apache-Test/Changes Url: http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/Changes?view=diff&rev=109816&p1=httpd/test/trunk/perl-framework/Apache-Test/Changes&r1=109815&p2=httpd/test/trunk/perl-framework/Apache-Test/Changes&r2=109816 ============================================================================== --- httpd/test/trunk/perl-framework/Apache-Test/Changes (original) +++ httpd/test/trunk/perl-framework/Apache-Test/Changes Sat Dec 4 09:39:25 2004 @@ -8,6 +8,8 @@ =item 1.17-dev +fix Apache::TestConfig::open_cmd to run properly under -T [Stas] + require Cwd 2.06 or higher (to solve File::Spec::rel2abs problems under -T). Enforce the modules version requirements for those who aren't running under CPAN/CPANPLUS shell) [Stas] Modified: httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm Url: http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm?view=diff&rev=109816&p1=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm&r1=109815&p2=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm&r2=109816 ============================================================================== --- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm (original) +++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm Sat Dec 4 09:39:25 2004 @@ -1037,10 +1037,13 @@ # 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: $!";