X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FSpec%2FWin32.pm;h=0ea4970b4140d4773ad5c6a5bccd1be69f3606b3;hb=f505c9832e74f948e2721f6c36b348502f15804c;hp=0e00af711d95c33e17220604b96f35c0f6a6ca40;hpb=9ffcd8612a179e6a837df3e98019ae7fe24b4fa1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index 0e00af7..0ea4970 100644
--- a/lib/File/Spec/Win32.pm
+++ b/lib/File/Spec/Win32.pm
@@ -99,7 +99,7 @@ sub canonpath {
     my ($self,$path,$reduce_ricochet) = @_;
     $path =~ s/^([a-z]:)/\u$1/;
     $path =~ s|/|\\|g;
-    $path =~ s|([^\\])\\+|\1\\|g;                  # xx////xx  -> xx/xx
+    $path =~ s|([^\\])\\+|$1\\|g;                  # xx////xx  -> xx/xx
     $path =~ s|(\\\.)+\\|\\|g;                     # xx/././xx -> xx/xx
     $path =~ s|^(\.\\)+|| unless $path eq ".\\";   # ./xx      -> xx
     $path =~ s|\\$||