Abe Timmerman wrote:
> Automated smoke report for 5.10.0 patch 31938
> wodan.test-smoke.org: Intel Pentium III (686-class) (i386/1 cpu)
> on netbsd - 3.1
> using cc version 3.3.3 (NetBSD nb3 20040520)
> smoketime 10 hours 54 minutes (average 1 hour 21 minutes)
>
> Summary: FAIL(F)
[snip]
> Locally applied patches:
> DEVEL
> SMOKE31938
>
> Failures: (common-args) none
> [stdio/perlio]
> [stdio/perlio] -DDEBUGGING
> [stdio/perlio] -Duse64bitint
> [stdio/perlio] -DDEBUGGING -Duse64bitint
> [stdio/perlio] -Duseithreads
> [stdio/perlio] -DDEBUGGING -Duseithreads
> [stdio] -Duseithreads -Duse64bitint
> [stdio/perlio] -DDEBUGGING -Duseithreads -Duse64bitint
> ../t/op/utftaint.t......................FAILED 87-88
Insecure directory in $ENV{PATH} while running with -T switch at
./test.pl line 537.
It turns out this is due to nonexistent directories in $PATH.
One way this can be fixed is in t/test.pl:runperl() like:
--- t/test.pl.org 2007-09-23 00:35:20.000000000 +0200
+++ t/test.pl 2007-09-23 00:35:58.000000000 +0200
@@ -527,7 +527,7 @@
local $ENV{'DCL$PATH'} = $1 if $is_vms && ($ENV{'DCL$PATH'} =~ /(.*)/s);
$ENV{PATH} =~ /(.*)/s;
local $ENV{PATH} =
- join $sep, grep { $_ ne "" and $_ ne "." and
+ join $sep, grep { $_ ne "" and $_ ne "." and -d $_ and
($is_mswin or $is_vms or !(stat && (stat _)[2]&0022)) }
split quotemeta ($sep), $1;
Good luck,
Abe
--
We might as well document that in future sort() in scalar context *may* make
flying pigs in pink tutus spring forth from one's nostrils, too :-)
For 5.8.0 I'm happy just to document the current behaviour.
-- Jarkko Hietaniemi on p5p @ 2002-06-12
