From d148da4f615d7b0f2e4d5114a4fb4f1630d8a341 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 24 Dec 2011 14:52:50 +0100
Subject: [PATCH] In installperl, add the trailing / to the value held in
 $::depth.

This should make future refactoring simpler.
---
 installperl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/installperl b/installperl
index a6bd023..af1287a 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";
-- 
2.7.4