Updated.

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

diff --git a/installperl b/installperl
index 0530d15..45f9c7e 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -1,6 +1,7 @@
 #!./perl
 BEGIN { @INC=('./lib', '../lib') }
 use File::Find;
+use Config;
 
 $mainperldir = "/usr/bin";
 
@@ -12,8 +13,10 @@ while (@ARGV) {
 
 umask 022;
 
-@scripts = ('cppstdin', 'c2ph', 'h2xs', 'pstruct', 'x2p/s2p', 'x2p/find2perl',
-           'perldoc', 'pod/pod2man', 'pod/pod2html', 'pod/pod2latex' );
+@scripts = ('cppstdin', 'c2ph', 'h2ph', 'h2xs', 'pstruct', 
+           'x2p/s2p', 'x2p/find2perl',
+           'perldoc',
+           'pod/pod2man', 'pod/pod2html', 'pod/pod2latex' );
 
 # pod documentation now handled by separate installman script.
 # These two are archaic leftovers.
@@ -21,31 +24,39 @@ umask 022;
 
 @pods = (<pod/*.pod>);
 
-# Read in the config file.
-
-open(CONFIG, "config.sh") || die "You haven't run Configure yet!\n";
-while (<CONFIG>) {
-    if (s/^(\w+=)/\$$1/) {
-       $accum =~ s/'undef'/undef/g;
-       eval $accum;
-       $accum = '';
-    }
-    $accum .= $_;
-}
-close CONFIG;
-
 $ver = $];
-$release = substr($ver,0,3);
+$release = substr($ver,0,3);   # Not used presently.
 $patchlevel = substr($ver,3,2);
 die "Patchlevel of perl ($patchlevel)",
-    "and patchlevel of config.sh ($PATCHLEVEL) don't match\n"
-       if $patchlevel != $PATCHLEVEL;
+    "and patchlevel of config.sh ($Config{'PATCHLEVEL'}) don't match\n"
+       if $patchlevel != $Config{'PATCHLEVEL'};
+
+# Fetch some frequently-used items from %Config
+$installbin = $Config{installbin};
+$installscript = $Config{installscript};
+$installprivlib = $Config{installprivlib};
+$installarchlib = $Config{installarchlib};
+$installsitelib = $Config{installsitelib};
+$installsitearch = $Config{installsitearch};
+$installman1dir = $Config{installman1dir};
+$man1ext = $Config{man1ext};
+# Did we build libperl as a shared library?
+$d_shrplib = $Config{d_shrplib};
+$shrpdir = $Config{shrpdir};
+# Shared library and dynamic loading suffixes.
+$so = $Config{so};
+$dlext = $Config{dlext};
+
+$d_dosuid = $Config{d_dosuid};
+$binexp = $Config{binexp};
+$osname = $Config{osname};
 
 # Do some quick sanity checks.
 
 if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
 
    $installbin         || die "No installbin directory in config.sh\n";
+-d $installbin         || makedir($installbin);
 -d $installbin         || die "$installbin is not a directory\n";
 -w $installbin         || die "$installbin is not writable by you\n"
        unless $installbin =~ m#^/afs/# || $nonono;
@@ -69,10 +80,10 @@ if ($d_shrplib) {
 
 # First we install the version-numbered executables.
 
-&unlink("$installbin/perl$ver");
+&safe_unlink("$installbin/perl$ver");
 &cmd("cp perl $installbin/perl$ver");
 
-&unlink("$installbin/sperl$ver");
+&safe_unlink("$installbin/sperl$ver");
 if ($d_dosuid) {
     &cmd("cp suidperl $installbin/sperl$ver");
     &chmod(04711, "$installbin/sperl$ver");
@@ -83,13 +94,13 @@ exit 0 if $versiononly;
 # Make links to ordinary names if installbin directory isn't current directory.
 
 if (! &samepath($installbin, '.')) {
-    &unlink("$installbin/perl", "$installbin/suidperl");
+    &safe_unlink("$installbin/perl", "$installbin/suidperl");
     &link("$installbin/perl$ver", "$installbin/perl");
     &link("$installbin/sperl$ver", "$installbin/suidperl") if $d_dosuid;
 }
 
 if (! &samepath($installbin, 'x2p')) {
-    &unlink("$installbin/a2p");
+    &safe_unlink("$installbin/a2p");
     &cmd("cp x2p/a2p $installbin/a2p");
     &chmod(0755, "$installbin/a2p");
 }
@@ -142,6 +153,9 @@ $do_installarchlib = $do_installprivlib = 0;
     
 &makedir($installprivlib);
 &makedir($installarchlib);
+&makedir($installsitelib) if ($installsitelib);
+&makedir($installsitearch) if ($installsitearch);
+
 if (chdir "lib") {
     $do_installarchlib = ! &samepath($installarchlib, '.');
     $do_installprivlib = ! &samepath($installprivlib, '.');
@@ -248,6 +262,22 @@ sub unlink {
     }
 }
 
+sub safe_unlink {
+    local(@names) = @_;
+
+    foreach $name (@names) {
+       next unless -e $name;
+       print STDERR "  unlink $name\n";
+       next if $nonono;
+       next if unlink($name);
+       warn "Couldn't unlink $name: $!\n";
+       if ($! =~ /busy/i) {
+           print STDERR "  mv $name $name.old\n";
+           &rename($name, "$name.old") || warn "Couldn't rename $name: $!\n";
+       }
+    }
+}
+
 sub cmd {
     local($cmd) = @_;
     print STDERR "  $cmd\n";
@@ -257,6 +287,19 @@ sub cmd {
     }
 }
 
+sub rename {
+    local($from,$to) = @_;
+    unless (unlink($to)) {
+       my($i);
+       for ($i = 1; $i < 50; $i++) {
+           last if rename($to, "$to.$i");
+       }
+       return 0 if $i >= 50;   # Give up!
+    }
+    link($from,$to) || return 0;
+    unlink($from);
+}
+
 sub link {
     local($from,$to) = @_;
 
@@ -304,6 +347,10 @@ sub installlib {
     $dir =~ s#^\.(?![^/])/?##;
 
     my $name = $_;
+    
+    # ignore patch backups and the .exists files.
+    return if $name =~ m{\.orig$|~$|^\.exists};
+
     $name = "$dir/$name" if $dir ne '';
 
     my $installlib = $installprivlib;