From: Slaven Rezic <slaven@rezic.de>
Date: Mon, 4 Jan 1999 23:01:46 +0000 (+0100)
Subject: FindBin.pm on Win32 systems
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d5e6d479963de089122e954c00ec89b003ac06e4;p=p5sagit%2Fp5-mst-13.2.git

FindBin.pm on Win32 systems

To: perlbug@perl.com
Message-Id: <199901042201.XAA01875@cabulja.herceg.de>

p4raw-id: //depot/cfgperl@2571
---

diff --git a/lib/FindBin.pm b/lib/FindBin.pm
index d6bd7b7..cd1871f 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')
   {