Avoid "uninitialized value" warnings during 'make test'.
authorGisle Aas <gisle@activestate.com>
Mon, 20 Mar 2006 10:51:36 +0000 (10:51 +0000)
committerGisle Aas <gisle@activestate.com>
Mon, 20 Mar 2006 10:51:36 +0000 (10:51 +0000)
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

t/test.pl

index 0f2f7a0077e4b8ab729867779184ed3bd550be1a..cdfa018fccce80defe39d500af9ceb69684ab83e 100644 (file)
--- 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;