From 160a7e377219ff437f0692a89b2530a641a78eb5 Mon Sep 17 00:00:00 2001
From: Hugo van der Sanden <hv@crypt.org>
Date: Fri, 14 May 1999 22:34:58 +0100
Subject: installperl

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

p4raw-id: //depot/cfgperl@3435
---
 installperl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'installperl')

diff --git a/installperl b/installperl
index 208c276c8d..8077add93e 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 " .
-- 
cgit v1.2.1