summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJerry D. Hedden <jdhedden@cpan.org>2008-01-19 07:19:41 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2008-01-21 16:05:33 +0000
commitebef0ab4be1c96dce5216f931c53c77d0ee1e4f9 (patch)
treeaaa03378da319f4c8e4eaaefa03b7f1f8d0ea79e
parent17347a51432ece1d1c1dc2715f58c72fdcf99fbc (diff)
downloadperl-ebef0ab4be1c96dce5216f931c53c77d0ee1e4f9.tar.gz
Ignore build dir when installing perl
From: "Jerry D. Hedden" <jdhedden@cpan.org> Message-ID: <1ff86f510801190919o6e3af1bboff1f885c76cf2bc7@mail.gmail.com> p4raw-id: //depot/perl@33031
-rwxr-xr-xinstallperl2
1 files changed, 2 insertions, 0 deletions
diff --git a/installperl b/installperl
index ddd3a4ba9a..f635918796 100755
--- a/installperl
+++ b/installperl
@@ -54,6 +54,7 @@ use File::Compare;
use File::Copy ();
use File::Path ();
use ExtUtils::Packlist;
+use Cwd;
use Config;
use subs qw(unlink link chmod);
@@ -620,6 +621,7 @@ if (!$versiononly && $otherperls) {
# Use &samepath here because some systems have other dirs linked
# to $mainperldir (like SunOS)
next if samepath($_, $binexp);
+ next if samepath($_, cwd());
next if ($mainperl_is_instperl && samepath($_, $mainperldir));
my $otherperl = "$_/$perl$exe_ext";
next if $otherperls{$otherperl}++;