Re: New Module::Build released

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / Installed.pm

diff --git a/lib/ExtUtils/Installed.pm b/lib/ExtUtils/Installed.pm
index 619b141..d1faaa2 100644 (file)
--- a/lib/ExtUtils/Installed.pm
+++ b/lib/ExtUtils/Installed.pm
@@ -16,7 +16,7 @@ my $DOSISH = ($^O =~ /^(MSWin\d\d|os2|dos|mint)$/);
 require VMS::Filespec if $Is_VMS;
 
 use vars qw($VERSION);
-$VERSION = '0.07';
+$VERSION = '0.08_01';
 
 sub _is_prefix {
     my ($self, $path, $prefix) = @_;
@@ -26,8 +26,10 @@ sub _is_prefix {
         $prefix = VMS::Filespec::unixify($prefix);
         $path   = VMS::Filespec::unixify($path);
     }
-    $prefix =~ m!/+! && $prefix =~ s!/+!/!g;
-    $path   =~ m!/+! && $path   =~ s!/+!/!g;
+
+    # Sloppy Unix path normalization.
+    $prefix =~ s{/+}{/}g;
+    $path   =~ s{/+}{/}g;
 
     return 1 if substr($path, 0, length($prefix)) eq $prefix;