Change 27551: Avoid "uninitialized value" warnings during 'make test'.

[Gisle Aas]

Change 27551 by [EMAIL PROTECTED] on 2006/03/20 10:51:36

        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.

Affected files ...

... //depot/perl/t/test.pl#70 edit

Differences ...

==== //depot/perl/t/test.pl#70 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#69~27550~    2006-03-20 02:44:08.000000000 -0800
+++ perl/t/test.pl      2006-03-20 02:51:36.000000000 -0800
@@ -506,7 +506,7 @@
        $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;
End of Patch.