From: Hugo van der Sanden <hv@crypt.org>
Date: Fri, 14 May 1999 21:34:58 +0000 (+0100)
Subject: installperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=160a7e377219ff437f0692a89b2530a641a78eb5;p=p5sagit%2Fp5-mst-13.2.git

installperl

To: perl5-porters@perl.org
Message-Id: <199905142034.VAA00865@crypt.compulink.co.uk>

p4raw-id: //depot/cfgperl@3435
---

diff --git a/installperl b/installperl
index 208c276..8077add 100755
--- a/installperl
+++ b/installperl
@@ -411,14 +411,17 @@ if (!$versiononly) {
         }
     }
     my @otherperls;
+    my %otherperls;
     for (@path) {
 	next unless m,^/,;
 	# Use &samepath here because some systems have other dirs linked
 	# to $mainperldir (like SunOS)
 	next if samepath($_, $binexp);
 	next if ($mainperl_is_instperl && samepath($_, $mainperldir));
-	push(@otherperls, "$_/$perl$exe_ext")
-	    if (-x "$_/$perl$exe_ext" && ! -d "$_/$perl$exe_ext");
+        my $otherperl = "$_/$perl$exe_ext";
+	next if $otherperls{$otherperl}++;
+	push(@otherperls, $otherperl)
+	    if (-x $otherperl && ! -d $otherperl);
     }
     if (@otherperls) {
 	print STDERR "\nWarning: $perl appears in your path in the following " .