Re: maint @ 20617 [PATCH]

Message-ID: <20030812121900.26127.qmail@web10501.mail.yahoo.com>

p4raw-id: //depot/perl@20666

diff --git a/lib/ExtUtils/Installed.pm b/lib/ExtUtils/Installed.pm
index 72bbb53..619b141 100644 (file)
--- a/lib/ExtUtils/Installed.pm
+++ b/lib/ExtUtils/Installed.pm
@@ -26,6 +26,9 @@ sub _is_prefix {
         $prefix = VMS::Filespec::unixify($prefix);
         $path   = VMS::Filespec::unixify($path);
     }
+    $prefix =~ m!/+! && $prefix =~ s!/+!/!g;
+    $path   =~ m!/+! && $path   =~ s!/+!/!g;
+
     return 1 if substr($path, 0, length($prefix)) eq $prefix;
 
     if ($DOSISH) {