This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In installperl, don't chdir 'lib' before finding files in lib/
authorNicholas Clark <nick@ccl4.org>
Mon, 26 Dec 2011 13:05:13 +0000 (14:05 +0100)
committerNicholas Clark <nick@ccl4.org>
Mon, 2 Jan 2012 11:18:54 +0000 (12:18 +0100)
installperl

index af1287a..5d86a93 100755 (executable)
@@ -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 = $_;