From: Gisle Aas <gisle@activestate.com>
Date: Mon, 20 Mar 2006 10:51:36 +0000 (+0000)
Subject: Avoid "uninitialized value" warnings during 'make test'.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3fdeee05312bf904b2b698f85963a6d644083194;p=p5sagit%2Fp5-mst-13.2.git

Avoid "uninitialized value" warnings during 'make test'.
My system is set up with a few PATH entries I'm not allowed
to access, so stat() fails for these.

p4raw-id: //depot/perl@27551
---

diff --git a/t/test.pl b/t/test.pl
index 0f2f7a0..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]&0022)) }
+		($is_mswin or !(stat && (stat _)[2]&0022)) }
 		    split quotemeta ($sep), $1;
 
 	$runperl =~ /(.*)/s;