$mainperldir = "/usr/bin";
$nonono = 1 if $ARGV[0] eq '-n';
$versiononly = 1 if $ARGV[0] eq '-v';
@scripts = ('cppstdin', 'h2ph', 'c2ph', 'pstruct', 'x2p/s2p', 'x2p/find2perl');
@manpages = ('perl.man', 'h2ph.man', 'x2p/a2p.man', 'x2p/s2p.man');
# Read in the config file.
open(CONFIG, "config.sh") || die "You haven't run Configure yet!\n";
$accum =~ s/'undef'/undef/g;
$ver = sprintf("%5.3f", $major + $PATCHLEVEL / 1000);
$release = substr($ver,0,3);
$patchlevel = substr($ver,3,2);
# 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 || die "$installbin is not a directory\n";
-w $installbin || die "$installbin is not writable by you\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'!!!",
" (Installing anyway.)\n";
# First we install the version-numbered executables.
&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");
&cmd("cp suidperl $installbin/sperl$ver");
&chmod(04711, "$installbin/sperl$ver");
# Make links to ordinary names if installbin directory isn't current directory.
($bdev,$bino) = stat($installbin);
($ddev,$dino) = stat('.');
if ($bdev != $ddev || $bino != $dino) {
&unlink("$installbin/perl", "$installbin/taintperl", "$installbin/suidperl");
&link("$installbin/perl$ver", "$installbin/perl");
&link("$installbin/tperl$ver", "$installbin/taintperl");
&link("$installbin/sperl$ver", "$installbin/suidperl") if $d_dosuid;
($bdev,$bino) = stat($installbin);
($ddev,$dino) = stat('x2p');
if ($bdev != $ddev || $bino != $dino) {
&unlink("$installbin/a2p");
&cmd("cp x2p/a2p $installbin/a2p");
&chmod(0755, "$installbin/a2p");
# Make some enemies in the name of standardization. :-)
($udev,$uino) = stat($mainperldir);
if (-w _ && ($udev != $bdev || $uino != $bino) && !$nonono) {
&unlink("$mainperldir/perl");
eval 'link("$installbin/perl", "$mainperldir/perl")' ||
eval 'symlink("$installbin/perl", "$mainperldir/perl")' ||
&cmd("cp $installbin/perl $mainperldir");
&cmd("cp $_ $installscr");
s#.*/##; &chmod(0755, "$installscr/$_");
($mdev,$mino) = stat($mansrc);
if ($mdev != $ddev || $mino != $dino) {
($new = $_) =~ s/man$/$manext/;
print STDERR " Installing $mansrc/$new\n";
open(MI,$_) || warn "Can't open $_: $!\n";
open(MO,">$mansrc/$new") || warn "Can't install $mansrc/$new: $!\n";
print MO ".ds RP Release $release Patchlevel $patchlevel\n";
&makedir($installprivlib);
($pdev,$pino) = stat($installprivlib);
($ldev,$lino) = stat('.');
if ($pdev != $ldev || $pino != $lino) {
system "cmp", "-s", $file, "$privlib/$file";
&unlink("$installprivlib/$file");
&cmd("cp $file $installprivlib");
&chmod(0644, "$installprivlib/$file");
chdir ".." || die "Can't cd back to source directory: $!\n";
warn "Can't cd to lib to install lib files: $!\n";
&chmod(0755, "usub/mus");
print STDERR " Installation complete\n";
###############################################################################
print STDERR " unlink $name\n";
unlink($name) || warn "Couldn't unlink $name: $!\n" unless $nonono;
warn "Command failed!!!\n" if $?;
print STDERR " ln $from $to\n";
link($from,$to) || warn "Couldn't link $from to $to: $!\n" unless $nonono;
printf STDERR " chmod %o %s\n", $mode, $name;
chmod($mode,$name) || warn sprintf("Couldn't chmod %o %s: $!\n",$mode,$name)
$shortdir =~ s#(.*)/.*#$1#;
print STDERR " mkdir $dir\n";
mkdir($dir, 0777) || warn "Couldn't create $dir: $!\n" unless $nonono;