From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 29 Jul 2003 05:00:12 +0000 (+0000)
Subject: The better prefixify() patch from Ed Moy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56d96d4da7ea9e8c0d277ad2b6a6e976e54830d5;p=p5sagit%2Fp5-mst-13.2.git

The better prefixify() patch from Ed Moy.

p4raw-id: //depot/perl@20283
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 51c54cf..ef96d3d 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -3409,7 +3409,7 @@ sub prefixify {
     print STDERR "  prefixify $var => $path\n" if $Verbose >= 2;
     print STDERR "    from $sprefix to $rprefix\n" if $Verbose >= 2;
 
-    $rprefix .= '/' if $sprefix eq '/'; # Compensate for the slash.
+    $rprefix .= '/' if $sprefix =~ m|/$|; # Compensate for the slash
     if( $path !~ s{^\Q$sprefix\E\b}{$rprefix}s && $self->{ARGS}{PREFIX} ) {
 
         print STDERR "    cannot prefix, using default.\n" if $Verbose >= 2;