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 (file)
--- 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')
   {