Remove "Warning: perl appears in your path"

[perl5.git] / installperl

diff --git a/installperl b/installperl
index a5df4d6..af61203 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -373,6 +373,8 @@ elsif ($Is_Cygwin) { # On Cygwin symlink it to CORE to make Makefile happy
     ( copy("$installbin/$libperl", $coredll) &&
       push(@corefiles, $instcoredll)
     )
+} elsif ($Is_W32) {
+    @corefiles = <*.h>;
 } else {
     # [als] hard-coded 'libperl' name... not good!
     @corefiles = <*.h libperl*.* perl*$Config{lib_ext}>;
@@ -393,6 +395,13 @@ foreach my $file (@corefiles) {
     }
 }
 
+if ($Is_W32) { #linking lib isn't made in root but in CORE on Win32
+    @corefiles = <lib/CORE/libperl*.* lib/CORE/perl*$Config{lib_ext}>;
+    my $dest;
+    copy_if_diff($_,($dest = $installarchlib.substr($_,3))) &&
+       chmod($NON_SO_MODE, $dest) foreach @corefiles;
+}
+
 # Install main perl executables
 # Make links to ordinary names if installbin directory isn't current directory.
 
@@ -532,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};
@@ -671,8 +637,8 @@ sub installlib {
     return if $name =~ /^(?:cpan|instmodsh|prove|corelist|ptar|ptardiff|ptargrep|zipdetails)\z/;
     # ignore the Makefiles
     return if $name =~ /^makefile$/i;
-    # ignore the test extensions
-    return if $dir =~ m{\bXS/(?:APItest|Typemap)\b};
+    # ignore the test extensions, dont install PPPort.so/.dll
+    return if $dir =~ m{\b(?:XS/(?:APItest|Typemap)|Devel/PPPort)\b};
     return if $name =~ m{\b(?:APItest|Typemap)\.pm$};
     # ignore the build support code
     return if $name =~ /\bbuildcustomize\.pl$/;
@@ -715,6 +681,9 @@ sub installlib {
 
     return if $name eq 'ExtUtils/XSSymSet.pm' and !$Is_VMS;
 
+    #blead comes with version, blead isn't 5.8/5.6
+    return if $name eq 'ExtUtils/MakeMaker/version/regex.pm';
+
     my $installlib = $installprivlib;
     if ($dir =~ /^auto\// ||
          ($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) ||