Greg Freiter wrote: [...]
waiting 120 seconds for server to start: .[Sun Nov 21 16:23:06 2004] [info] 26
Apache:: modules loaded
[Sun Nov 21 16:23:06 2004] [info] 7 APR:: modules loaded
[Sun Nov 21 16:23:06 2004] [info] base server + 26 vhosts ready to run tests
[Sun Nov 21 16:23:06 2004] [error] Insecure directory in $ENV{PATH} while
running with -T switch at
/alternative/dev/mod_perl-1.99_17/Apache-Test/lib/Apache/TestConfig.pm line
1035.
Greg, in file Apache-Test/lib/Apache/TestConfig.pm:
sub open_cmd {
my($self, $cmd) = @_;
# untaint some %ENV fields
local @ENV{ qw(IFS CDPATH ENV BASH_ENV) }; # Temporarly untaint PATH
(local $ENV{PATH}) = ( $ENV{PATH} =~ /(.*)/ );
# -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: $!";return $handle; }
please dump the value of $ENV{PATH} just before open() is called, run 'make test' again and post the printed value here (it should appear just before the error).
e.g. add the print line, like so:
$ENV{PATH} = join ':', grep !/^\./, split /:/, $ENV{PATH};
print STDERR "PATH: $ENV{PATH}\n";thanks.
-- __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
-- Report problems: http://perl.apache.org/bugs/ Mail list info: http://perl.apache.org/maillist/modperl.html List etiquette: http://perl.apache.org/maillist/email-etiquette.html
