Ignore build dir when installing perl

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510801190919o6e3af1bboff1f885c76cf2bc7@mail.gmail.com>

p4raw-id: //depot/perl@33031

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}++;