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



Reply via email to