1 files changed, 1 insertions, 1 deletions
diff --git a/t/test.pl b/t/test.pl
index 37e6682e2f..b492c777c5 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;