From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sun, 23 Sep 2007 01:02:22 +0000 (+0200)
Subject: Re: Smoke [5.10.0] 31938 FAIL(F) netbsd 3.1 (i386/1 cpu)
X-Git-Tag: accepted/trunk/20130322.191538~14523
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3b6d8381b2a5a9454f136660072d896712c81069;p=platform%2Fupstream%2Fperl.git

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
--- 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;