diff options
| author | Abe Timmerman <abe@ztreet.demon.nl> | 2007-09-23 03:02:22 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-25 09:00:53 +0000 |
| commit | 3b6d8381b2a5a9454f136660072d896712c81069 (patch) | |
| tree | 6b803b370e3cc4af716556089b9049aaba6bb323 | |
| parent | 0921ee73ba49a35b0e5ee887dcd21e4312b38dba (diff) | |
| download | perl-3b6d8381b2a5a9454f136660072d896712c81069.tar.gz | |
Re: Smoke [5.10.0] 31938 FAIL(F) netbsd 3.1 (i386/1 cpu)
Message-ID: <46F59EFE.7050303@ztreet.demon.nl>
p4raw-id: //depot/perl@31962
| -rw-r--r-- | t/test.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -527,7 +527,7 @@ sub runperl { local $ENV{'DCL$PATH'} = $1 if $is_vms && ($ENV{'DCL$PATH'} =~ /(.*)/s); $ENV{PATH} =~ /(.*)/s; local $ENV{PATH} = - join $sep, grep { $_ ne "" and $_ ne "." and + join $sep, grep { $_ ne "" and $_ ne "." and -d $_ and ($is_mswin or $is_vms or !(stat && (stat _)[2]&0022)) } split quotemeta ($sep), $1; |