Remove "Warning: perl appears in your path"
authorDavid Mitchell <davem@iabyn.com>
Mon, 14 Nov 2016 12:44:12 +0000 (12:44 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 14 Nov 2016 12:46:56 +0000 (12:46 +0000)
This install warning is more or less obsolete, since most platforms
already *will* have a /usr/bin/perl or similar provided by the OS.

We agreed to remove it in this thread:

    http://nntp.perl.org/group/perl.perl5.porters/240000

installperl

index f4d850b..af61203 100755 (executable)
@@ -541,49 +541,6 @@ if (!$opts{nopods} && (!$versiononly || ($installprivlib =~ m/\Q$vershort/))) {
 
 }
 
-# Check to make sure there aren't other perls around in installer's
-# path.  This is probably UNIX-specific.  Check all absolute directories
-# in the path except for where public executables are supposed to live.
-# Also skip $mainperl if the user opted to have it be a link to the
-# installed perl.
-
-if (!$versiononly && !$opts{'skip-otherperls'}) {
-    my ($path, @path);
-    my $dirsep = ($Is_OS2 || $Is_W32 || $Is_NetWare) ? ';' : ':' ;
-    ($path = $ENV{"PATH"}) =~ s:\\:/:g ;
-    @path = split(/$dirsep/, $path);
-    if ($Is_VMS) {
-       my $i = 0;
-       while (exists $ENV{'DCL$PATH' . $i}) {
-           my $dir = unixpath($ENV{'DCL$PATH' . $i});  $dir =~ s-/$--;
-           push(@path,$dir);
-       }
-    }
-    my @otherperls;
-    my %otherperls;
-    for (@path) {
-       next unless m,^/,;
-       # Use &samepath here because some systems have other dirs linked
-       # to $mainperldir (like SunOS)
-       next unless -d;
-       next if samepath($_, $binexp);
-       next if samepath($_, cwd());
-       next if ($mainperl_is_instperl && samepath($_, $mainperldir));
-       my $otherperl = "$_/$perl$exe_ext";
-       next if $otherperls{$otherperl}++;
-       push(@otherperls, $otherperl)
-           if (-x $otherperl && ! -d $otherperl);
-    }
-    if (@otherperls) {
-       warn "\nWarning: $perl appears in your path in the following " .
-           "locations beyond where\nwe just installed it:\n";
-       for (@otherperls) {
-           warn "    ", $_, "\n";
-       }
-       warn "\n";
-    }
-
-}
 
 $packlist->write() unless $opts{notify};
 print "  Installation complete\n" if $opts{verbose};