diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-29 05:00:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-29 05:00:12 +0000 |
| commit | 56d96d4da7ea9e8c0d277ad2b6a6e976e54830d5 (patch) | |
| tree | 9c671964d8e0dc75b705f884bbe93bd5b40081f6 /lib/ExtUtils | |
| parent | 868207c2a3ad164268f8e7339a6469fa1ce89c1b (diff) | |
| download | perl-56d96d4da7ea9e8c0d277ad2b6a6e976e54830d5.tar.gz | |
The better prefixify() patch from Ed Moy.
p4raw-id: //depot/perl@20283
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 51c54cfbe3..ef96d3d3d4 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; |