This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Smoke [5.10.0] 31938 FAIL(F) netbsd 3.1 (i386/1 cpu)
authorAbe Timmerman <abe@ztreet.demon.nl>
Sun, 23 Sep 2007 01:02:22 +0000 (03:02 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 25 Sep 2007 09:00:53 +0000 (09:00 +0000)
Message-ID: <46F59EFE.7050303@ztreet.demon.nl>

p4raw-id: //depot/perl@31962

t/test.pl

index 37e6682..b492c77 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -527,7 +527,7 @@ sub runperl {
        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;