diff options
| author | Gisle Aas <gisle@activestate.com> | 2006-03-20 10:51:36 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-03-20 10:51:36 +0000 |
| commit | 3fdeee05312bf904b2b698f85963a6d644083194 (patch) | |
| tree | 126cd4a3d424a3778506e160fca13947bd846fed /t/test.pl | |
| parent | 6f998dadd365dcf88776abd404d1a47b068400ff (diff) | |
| download | perl-3fdeee05312bf904b2b698f85963a6d644083194.tar.gz | |
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
Diffstat (limited to 't/test.pl')
| -rw-r--r-- | t/test.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |