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 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 =~ /(.*)/s;
local $ENV =
- 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
|