-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
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)
> > 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 non-existent directories in $PATH.
I tried the following patch to t/test.pl:runperl()
- --- 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
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (Darwin)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFG9Z7+0u0nt7xxiCIRAneUAJ9awUAFbbeeI2kEn5WqntSyx3kyZgCfeTPe
46m19eP98Iuj7tk2WxJJ+4k=
=NiH3
-----END PGP SIGNATURE-----
--- 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;
