typo in change#5408

p4raw-link: @5408 on //depot/perl: 4f44ac69c2e18fd6c056482ac4532fefacf4cb50

p4raw-id: //depot/perl@5412

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index decb8e1..4c8da33 100644 (file)
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -85,7 +85,7 @@ sub canonpath {
     }
     $path =~ s|(?<=[^/])/+|/|g ;                   # xx////xx  -> xx/xx
     $path =~ s|(/\.)+/|/|g ;                       # xx/././xx -> xx/xx
-    $path =~ s|^(\./)+|| unless $path eq "./"s;    # ./xx      -> xx
+    $path =~ s|^(\./)+||s unless $path eq "./";    # ./xx      -> xx
     $path =~ s|(?<=[^/])/\z|| ;                    # xx/       -> xx
     "$node$path";
 }