Message-Id: <
C66FBFAC-B576-11D7-89B5-0030657B317C@apple.com>
p4raw-id: //depot/perl@20186
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.
if( $path !~ s{^\Q$sprefix\E\b}{$rprefix}s && $self->{ARGS}{PREFIX} ) {
print STDERR " cannot prefix, using default.\n" if $Verbose >= 2;