From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 1 Mar 2000 20:04:42 +0000 (+0000)
Subject: typo in change#5408
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ccb170633023ae0e007caf5cfa96ad76d3aae429;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
 }