From: Sreeji K Das <sreeji_k@yahoo.com>
Date: Tue, 12 Aug 2003 13:19:00 +0000 (+0100)
Subject: Re: maint @ 20617 [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30127843273fda7abd4ccab9bcf0a305f847547a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {