diff options
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/installperl b/installperl index a6bd023bd1..af1287a399 100755 --- a/installperl +++ b/installperl @@ -684,7 +684,7 @@ sub copy { sub installlib { my $dir = $File::Find::dir; $dir =~ s#^\.(?![^/])/?##; - local($depth) = $dir ? "lib/$dir" : "lib"; + local($depth) = $dir ? "lib/$dir/" : "lib/"; my $name = $_; @@ -825,7 +825,7 @@ sub copy_if_diff { if ($force || compare($from, $to) || $opts{notify}) { safe_unlink($to); # In case we don't have write permissions. if ($opts{notify}) { - $from = $depth . "/" . $from if $depth; + $from = $depth . $from if $depth; } if ($perlpodbadsymlink && $from =~ m!^pod/perl(.+)\.pod$!) { $from = "README.$1"; |