From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 24 Dec 2011 13:26:43 +0000 (+0100)
Subject: In installperl, initialise $do_install{arch,priv}lib at their declarations.
X-Git-Tag: v5.15.7~337^2~5
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/8473bff152d23bc1d94791dc06c4164c47e6be60

In installperl, initialise $do_install{arch,priv}lib at their declarations.

Also, add an editor block.
---

diff --git a/installperl b/installperl
index 7b122a0..a6bd023 100755
--- a/installperl
+++ b/installperl
@@ -341,8 +341,10 @@ else {
 
 # Install library files.
 
-my ($do_installarchlib, $do_installprivlib) = (0, 0);
+my $do_installarchlib = !samepath($installarchlib, 'lib');
+my $do_installprivlib = !samepath($installprivlib, 'lib');
 my $vershort = ($Is_Cygwin and !$Config{usedevel}) ? substr($ver,0,-2) : $ver;
+$do_installprivlib = 0 if $versiononly && !($installprivlib =~ m/\Q$vershort/);
 
 mkpath($installprivlib, $opts{verbose}, 0777);
 mkpath($installarchlib, $opts{verbose}, 0777);
@@ -350,10 +352,6 @@ mkpath($installsitelib, $opts{verbose}, 0777) if ($installsitelib);
 mkpath($installsitearch, $opts{verbose}, 0777) if ($installsitearch);
 
 if (chdir "lib") {
-    $do_installarchlib = ! samepath($installarchlib, '.');
-    $do_installprivlib = ! samepath($installprivlib, '.');
-    $do_installprivlib = 0 if $versiononly && !($installprivlib =~ m/\Q$vershort/);
-
     if ($do_installarchlib || $do_installprivlib) {
 	find(\&installlib, '.');
     }
@@ -866,3 +864,10 @@ sub strip
 	}
     }
 }
+
+# Local variables:
+# cperl-indent-level: 4
+# indent-tabs-mode: nil
+# End:
+#
+# ex: set ts=8 sts=4 sw=4 et: