X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installperl;h=f635918796b8b6b18e7ad45cb4508bde3473be75;hb=b16276bb9e16a3b99d6fb450f4e0902e32b01f85;hp=ddd3a4ba9a663d0d85c47632f5ea9f1c5ada7bc4;hpb=abf0ed0d390b1c5427bc1ae98a11af04d7b7c389;p=p5sagit%2Fp5-mst-13.2.git

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