up patchlevel &c

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index 7689005..8077add 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -245,10 +245,6 @@ else {
     # [als] hard-coded 'libperl' name... not good!
     @corefiles = <*.h libperl*.*>;
 
-    # cygwin needs special stub for dll loading
-    push @corefiles, 'impure_ptr.o'
-      if ($Is_Cygwin and $Config{useshrplib} eq 'true');
-
     # AIX needs perl.exp installed as well.
     push(@corefiles,'perl.exp') if $^O eq 'aix';
     if ($^O eq 'mpeix') {
@@ -415,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 " .