Author: stas Date: Fri Jan 28 14:07:28 2005 New Revision: 148932 URL: http://svn.apache.org/viewcvs?view=rev&rev=148932 Log: Apache::TestConfig::untaint_path needs to remove empty entries in the PATH list, since -T considers those tainted too.
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=148932&p1=httpd/test/trunk/perl-framework/Apache-Test/Changes&r1=148931&p2=httpd/test/trunk/perl-framework/Apache-Test/Changes&r2=148932 ============================================================================== --- httpd/test/trunk/perl-framework/Apache-Test/Changes (original) +++ httpd/test/trunk/perl-framework/Apache-Test/Changes Fri Jan 28 14:07:28 2005 @@ -8,6 +8,9 @@ =item 1.21-dev +Apache::TestConfig::untaint_path needs to remove empty entries in the +PATH list, since -T considers those tainted too. [Stas] + add Apache::TestHarnessPHP which allows for running client-side scripts via php instead of perl. [Geoffrey Young] 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=148932&p1=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm&r1=148931&p2=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm&r2=148932 ============================================================================== --- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm (original) +++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm Fri Jan 28 14:07:28 2005 @@ -1699,9 +1699,8 @@ ($path) = ( $path =~ /(.*)/ ); # win32 uses ';' for a path separator, assume others use ':' my $sep = WIN32 ? ';' : ':'; - # -T disallows relative directories in the PATH - $path = join $sep, grep !/^\./, split /$sep/, $path; - return $path; + # -T disallows relative and empty directories in the PATH + return join $sep, grep !/^(\.|$)/, split /$sep/, $path; } sub pop_dir {
