diff options
| author | Sreeji K Das <sreeji_k@yahoo.com> | 2003-08-12 14:19:00 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 20:02:13 +0000 |
| commit | 30127843273fda7abd4ccab9bcf0a305f847547a (patch) | |
| tree | c63f3b8cd3afc447fadaf79a47efe249baffe30a /lib/ExtUtils | |
| parent | be238d52d3347d96458d40082315a5e05528e888 (diff) | |
| download | perl-30127843273fda7abd4ccab9bcf0a305f847547a.tar.gz | |
Re: maint @ 20617 [PATCH]
Message-ID: <20030812121900.26127.qmail@web10501.mail.yahoo.com>
p4raw-id: //depot/perl@20666
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/Installed.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/ExtUtils/Installed.pm b/lib/ExtUtils/Installed.pm index 72bbb53365..619b14158a 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) { |