X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftest.pl;h=cdfa018fccce80defe39d500af9ceb69684ab83e;hb=658aef798ab992aed2b708fed0d12323ab3b1fcb;hp=e900d003dfcab860866471e2a8eeee8bc23b5d27;hpb=8210c8d394ae8b3f99882bcf9feccbb0aac08035;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/test.pl b/t/test.pl
index e900d00..cdfa018 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -506,7 +506,7 @@ sub runperl {
 	$ENV{PATH} =~ /(.*)/s;
 	local $ENV{PATH} =
 	    join $sep, grep { $_ ne "" and $_ ne "." and
-		($is_mswin or !((stat$_)[2]&0020)) }
+		($is_mswin or !(stat && (stat _)[2]&0022)) }
 		    split quotemeta ($sep), $1;
 
 	$runperl =~ /(.*)/s;