diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-07-02 02:21:17 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 13:20:50 +0000 |
| commit | f5f423e4590905c45492eda1312cb2f76a6ef9a7 (patch) | |
| tree | aec1cc8091d7e99e87e0c2658004bc2a891b9327 /lib/FindBin.pm | |
| parent | 6fbe8946df869c4ec4c3a3638877b93445042402 (diff) | |
| download | perl-f5f423e4590905c45492eda1312cb2f76a6ef9a7.tar.gz | |
OS/2 cwd
Message-ID: <20010702062117.A1401@math.ohio-state.edu>
p4raw-id: //depot/perl@11084
Diffstat (limited to 'lib/FindBin.pm')
| -rw-r--r-- | lib/FindBin.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/FindBin.pm b/lib/FindBin.pm index 5d4c575cbc..91958a8050 100644 --- a/lib/FindBin.pm +++ b/lib/FindBin.pm @@ -107,15 +107,15 @@ BEGIN } else { - my $IsWin32 = $^O eq 'MSWin32'; - unless(($script =~ m#/# || ($IsWin32 && $script =~ m#\\#)) + my $doshish = ($^O eq 'MSWin32' or $^O eq 'os2'); + unless(($script =~ m#/# || ($dosish && $script =~ m#\\#)) && -f $script) { my $dir; foreach $dir (File::Spec->path) { my $scr = File::Spec->catfile($dir, $script); - if(-r $scr && (!$IsWin32 || -x _)) + if(-r $scr && (!$dosish || -x _)) { $script = $scr; |