Re: Smoke [5.10.0] 31938 FAIL(F) netbsd 3.1 (i386/1 cpu)

Message-ID: <46F59EFE.7050303@ztreet.demon.nl>

p4raw-id: //depot/perl@31962

diff --git a/t/test.pl b/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;