In installperl, add the trailing / to the value held in $::depth.

This should make future refactoring simpler.

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";