diff options
| author | Slaven Rezic <slaven@rezic.de> | 1999-01-05 00:01:46 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-06 11:25:48 +0000 |
| commit | d5e6d479963de089122e954c00ec89b003ac06e4 (patch) | |
| tree | 4974f7eeb0f3d3c671c5e42b6481d2111507625d | |
| parent | 82f1aded4f41f8d8402d4d027e6ffe4efb64895c (diff) | |
| download | perl-d5e6d479963de089122e954c00ec89b003ac06e4.tar.gz | |
FindBin.pm on Win32 systems
To: perlbug@perl.com
Message-Id: <199901042201.XAA01875@cabulja.herceg.de>
p4raw-id: //depot/cfgperl@2571
| -rw-r--r-- | lib/FindBin.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/FindBin.pm b/lib/FindBin.pm index d6bd7b777e..cd1871f54b 100644 --- a/lib/FindBin.pm +++ b/lib/FindBin.pm @@ -89,7 +89,7 @@ sub is_abs_path local $_ = shift if (@_); if ($^O eq 'MSWin32' || $^O eq 'dos') { - return m#^[a-z]:[\\/]#i; + return m#^([a-z]:[\\/]|\\\\)#i; } elsif ($^O eq 'VMS') { |