perl 5.0 alpha 9perl-5a9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

1 files changed, 13 insertions, 9 deletions

diff --git a/installperl b/installperl
index 4f3fc0004d..e4e0e44300 100755
--- a/installperl
+++ b/installperl
@@ -48,7 +48,6 @@ if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
 	unless $installbin =~ m#^/afs/#;
 
 -x 'perl'		|| die "perl isn't executable!\n";
--x 'taintperl'		|| die "taintperl isn't executable!\n";
 -x 'suidperl'		|| die "suidperl isn't executable!\n" if $d_dosuid;
 
 -x 't/TEST'		|| warn "WARNING: You've never run 'make test'!!!",
@@ -59,10 +58,6 @@ if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
 &unlink("$installbin/perl$ver");
 &cmd("cp perl $installbin/perl$ver");
 
-&unlink("$installbin/tperl$ver");
-&cmd("cp taintperl $installbin/tperl$ver");
-&chmod(0755, "$installbin/tperl$ver");		# force non-suid for security
-
 &unlink("$installbin/sperl$ver");
 if ($d_dosuid) {
     &cmd("cp suidperl $installbin/sperl$ver");
@@ -77,9 +72,8 @@ exit 0 if $versiononly;
 ($ddev,$dino) = stat('.');
 
 if ($bdev != $ddev || $bino != $dino) {
-    &unlink("$installbin/perl", "$installbin/taintperl", "$installbin/suidperl");
+    &unlink("$installbin/perl", "$installbin/suidperl");
     &link("$installbin/perl$ver", "$installbin/perl");
-    &link("$installbin/tperl$ver", "$installbin/taintperl");
     &link("$installbin/sperl$ver", "$installbin/suidperl") if $d_dosuid;
 }
 
@@ -145,6 +139,18 @@ if (chdir "lib") {
     ($ldev,$lino) = stat('.');
 
     if ($pdev != $ldev || $pino != $lino) {
+	# Optimize for quick access.  First the auto directory.
+	system "tar cf - auto | (cd $installprivlib; tar xvf -)";
+	# Next the Perl modules.
+	foreach $file (<*.pm>) {
+	    system "cmp", "-s", $file, "$privlib/$file";
+	    if ($?) {
+		&unlink("$installprivlib/$file");
+		&cmd("cp $file $installprivlib");
+		&chmod(0644, "$installprivlib/$file");
+	    }
+	}
+	# Finally the old library files.
 	foreach $file (<*.pl>) {
 	    system "cmp", "-s", $file, "$privlib/$file";
 	    if ($?) {
@@ -160,8 +166,6 @@ else {
     warn "Can't cd to lib to install lib files: $!\n";
 }
 
-&chmod(0755, "usub/mus");
-
 print STDERR "  Installation complete\n";
 
 exit 0;