From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Sat, 19 Jan 2008 12:19:41 +0000 (-0500)
Subject: Ignore build dir when installing perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebef0ab4be1c96dce5216f931c53c77d0ee1e4f9;p=p5sagit%2Fp5-mst-13.2.git

Ignore build dir when installing perl
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510801190919o6e3af1bboff1f885c76cf2bc7@mail.gmail.com>

p4raw-id: //depot/perl@33031
---

diff --git a/installperl b/installperl
index ddd3a4b..f635918 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}++;