Change 20666 by [EMAIL PROTECTED] on 2003/08/12 20:02:13
Subject: Re: maint @ 20617 [PATCH]
From: =?iso-8859-1?q?Sreeji=20K=20Das?= <[EMAIL PROTECTED]>
Date: Tue, 12 Aug 2003 13:19:00 +0100 (BST)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/ExtUtils/Installed.pm#20 edit
Differences ...
==== //depot/perl/lib/ExtUtils/Installed.pm#20 (text) ====
Index: perl/lib/ExtUtils/Installed.pm
--- perl/lib/ExtUtils/Installed.pm#19~19162~ Mon Apr 7 11:23:29 2003
+++ perl/lib/ExtUtils/Installed.pm Tue Aug 12 13:02:13 2003
@@ -26,6 +26,9 @@
$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) {
End of Patch.
