From ce64b29247b866db41660d85a539aa3482208631 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 26 Dec 2011 14:05:13 +0100
Subject: In installperl, don't chdir 'lib' before finding files in lib/

---
 installperl | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

(limited to 'installperl')

diff --git a/installperl b/installperl
index af1287a399..5d86a93671 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 = $_;
 
-- 
cgit v1.2.1