Change 20283 by [EMAIL PROTECTED] on 2003/07/29 05:00:12
The better prefixify() patch from Ed Moy.
Affected files ...
... //depot/perl/lib/ExtUtils/MM_Unix.pm#179 edit
Differences ...
==== //depot/perl/lib/ExtUtils/MM_Unix.pm#179 (text) ====
Index: perl/lib/ExtUtils/MM_Unix.pm
--- perl/lib/ExtUtils/MM_Unix.pm#178~20207~ Thu Jul 24 06:40:39 2003
+++ perl/lib/ExtUtils/MM_Unix.pm Mon Jul 28 22:00:12 2003
@@ -3409,7 +3409,7 @@
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;
End of Patch.
