X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a3b6010a2721475ff9a5f9ca58e8e45fad2e99f1..146da353faca1399b07ed7c6c1913003df1f962b:/installperl?ds=sidebyside

diff --git a/installperl b/installperl
index a654b26..9686bfb 100755
--- a/installperl
+++ b/installperl
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    require 5.003_90;
+    require 5.004;
     @INC = 'lib';
     $ENV{PERL5LIB} = 'lib';
 }
@@ -349,7 +349,9 @@ sub link {
     eval {
 	CORE::link($from, $to)
 	    ? $success++
-	    : warn "Couldn't link $from to $to: $!\n"
+	    : ($from =~ m#^/afs/# || $to =~ m#^/afs/#)
+	      ? die "AFS"  # okay inside eval {}
+	      : warn "Couldn't link $from to $to: $!\n"
 	  unless $nonono;
     };
     if ($@) {
@@ -415,7 +417,7 @@ sub installlib {
     }
 
     if (-f $_) {
-	if (/\.al$/ || /\.ix$/) {
+	if (/\.(?:al|ix)$/ && !($dir =~ m[^auto/(.*)$] && $archpms{$1})) {
 	    $installlib = $installprivlib;
 	    #We're installing *.al and *.ix files into $installprivlib,
 	    #but we have to delete old *.al and *.ix files from the 5.000