From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 26 Dec 2011 13:05:13 +0000 (+0100)
Subject: In installperl, don't chdir 'lib' before finding files in lib/
X-Git-Tag: v5.15.7~337^2~3
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/ce64b29247b866db41660d85a539aa3482208631

In installperl, don't chdir 'lib' before finding files in lib/
---

diff --git a/installperl b/installperl
index af1287a..5d86a93 100755
--- a/installperl
+++ b/installperl
@@ -351,14 +351,12 @@ mkpath($installarchlib, $opts{verbose}, 0777);
 mkpath($installsitelib, $opts{verbose}, 0777) if ($installsitelib);
 mkpath($installsitearch, $opts{verbose}, 0777) if ($installsitearch);
 
-if (chdir "lib") {
-    if ($do_installarchlib || $do_installprivlib) {
-	find(\&installlib, '.');
-    }
-    chdir ".." || die "Can't cd back to source directory: $!\n";
+if (-d 'lib') {
+    find(\&installlib, 'lib')
+        if $do_installarchlib || $do_installprivlib;
 }
 else {
-    warn "Can't cd to lib to install lib files: $!\n";
+    warn "Can't install lib files - 'lib/' does not exist";
 }
 
 # Install header files and libraries.
@@ -683,8 +681,8 @@ sub copy {
 
 sub installlib {
     my $dir = $File::Find::dir;
-    $dir =~ s#^\.(?![^/])/?##;
-    local($depth) = $dir ? "lib/$dir/" : "lib/";
+    $dir =~ s!\Alib/?!!;
+    local($depth) = $File::Find::dir . '/';
 
     my $name = $_;