installperl revision 7c478bd95313f5f23a4c958a745db2134aa03244
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach#
8267b99c0d7a187abe6f87ad50530dc08f5d1cdcAndy Gimblett# This is a version of the 5.6.1 installperl script that has been modified to
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# work correctly as part of the ON build process. The changes are as follows:
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# * umask set to 022
97018cf5fa25b494adffd7e9b4e87320dae6bf47Christian Maeder# * install locations modified to be relative to $ROOT
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach# * check for 'make test' being run before install removed
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# * executables installed with mode 0555
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach# * executables only overwritten if different from last build
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach# * check for other versions of perl in $PATH removed
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach# * .packlist entries cleaned of $ROOT prefix
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# * SCCS directories and .tstamp files ignored on install
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# * The contents of the additional contrib_bin directory are installed
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett#
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus RoggenbachBEGIN {
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach require 5.004;
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach chdir '..' if !-d 'lib' and -d '..\lib';
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach @INC = 'lib';
90047eafd2de482c67bcd13103c6064e9b0cb254Andy Gimblett $ENV{PERL5LIB} = 'lib';
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblett}
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblettuse strict;
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblettmy ($Is_VMS, $Is_W32, $Is_OS2, $Is_Cygwin, $nonono, $dostrip,
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett $versiononly, $silent, $verbose, $otherperls);
ae930b77ed60580110b52a09456d651f9b841883Andy Gimblettuse vars qw /$depth/;
ae930b77ed60580110b52a09456d651f9b841883Andy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy GimblettBEGIN {
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach $Is_VMS = $^O eq 'VMS';
ae930b77ed60580110b52a09456d651f9b841883Andy Gimblett $Is_W32 = $^O eq 'MSWin32';
1538a6e8d77301d6de757616ffc69ee61f1482e4Andy Gimblett $Is_OS2 = $^O eq 'os2';
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach $Is_Cygwin = $^O eq 'cygwin';
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach if ($Is_VMS) { eval 'use VMS::Filespec;' }
6caa773a17aa8cb5b6196abbd5ede98ef01beb8aChristian Maeder}
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblett
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblettmy $scr_ext = ($Is_VMS ? '.Com' : $Is_W32 ? '.bat' : '');
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbach
792df0347edab377785d98c63e2be8e2ce0a8bdeChristian Maederuse File::Find;
0ea916d1e6aea10fd7b84f802fb5148a79d8c20aAndy Gimblettuse File::Compare;
04ceed96d1528b939f2e592d0656290d81d1c045Andy Gimblettuse File::Copy ();
d9e78002fb0bf01a9b72d3d3415fdf9790bdfee8Andy Gimblettuse File::Path ();
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblettuse ExtUtils::Packlist;
06dd4e7c29f33f6122a910719e3bd9062256e397Andy Gimblettuse Config;
1538a6e8d77301d6de757616ffc69ee61f1482e4Andy Gimblettuse subs qw(unlink link chmod);
c4b2418421546a337f83332fe0db04742dcd735dAndy Gimblett
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett# override the ones in the rest of the script
a65b135c4ed7e68b2510bc218018ffa8f9a34fe8Liam O'Reillysub mkpath {
6caa773a17aa8cb5b6196abbd5ede98ef01beb8aChristian Maeder File::Path::mkpath(@_) unless $nonono;
6caa773a17aa8cb5b6196abbd5ede98ef01beb8aChristian Maeder}
6caa773a17aa8cb5b6196abbd5ede98ef01beb8aChristian Maeder
6caa773a17aa8cb5b6196abbd5ede98ef01beb8aChristian Maedermy $mainperldir = "/usr/bin";
6caa773a17aa8cb5b6196abbd5ede98ef01beb8aChristian Maedermy $exe_ext = $Config{exe_ext};
6caa773a17aa8cb5b6196abbd5ede98ef01beb8aChristian Maeder
6caa773a17aa8cb5b6196abbd5ede98ef01beb8aChristian Maeder# Allow ``make install PERLNAME=something_besides_perl'':
a65b135c4ed7e68b2510bc218018ffa8f9a34fe8Liam O'Reillymy $perl = defined($ENV{PERLNAME}) ? $ENV{PERLNAME} : 'perl';
e771539425f4a0abef9f94cf4b63690f3603f682Andy Gimblett
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett# This is the base used for versioned names, like "perl5.6.0".
7caf9f99d426a25d56eb7473fea1f55ce4460762Andy Gimblett# It's separate because a common use of $PERLNAME is to install
7caf9f99d426a25d56eb7473fea1f55ce4460762Andy Gimblett# perl as "perl5", if that's used as base for versioned files you
7caf9f99d426a25d56eb7473fea1f55ce4460762Andy Gimblett# get "perl55.6.0".
7caf9f99d426a25d56eb7473fea1f55ce4460762Andy Gimblettmy $perl_verbase = defined($ENV{PERLNAME_VERBASE})
e771539425f4a0abef9f94cf4b63690f3603f682Andy Gimblett ? $ENV{PERLNAME_VERBASE}
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett : $perl;
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett$otherperls = 1;
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblettwhile (@ARGV) {
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett $nonono = 1 if $ARGV[0] eq '-n';
e771539425f4a0abef9f94cf4b63690f3603f682Andy Gimblett $dostrip = 1 if $ARGV[0] eq '-s';
e771539425f4a0abef9f94cf4b63690f3603f682Andy Gimblett $versiononly = 1 if $ARGV[0] eq '-v';
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblett $silent = 1 if $ARGV[0] eq '-S';
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblett $otherperls = 0 if $ARGV[0] eq '-o';
e771539425f4a0abef9f94cf4b63690f3603f682Andy Gimblett $verbose = 1 if $ARGV[0] eq '-V' || $ARGV [0] eq '-n';
61051521e4d82769a47f23aecb5fb477de47d534Andy Gimblett shift;
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett}
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblett$versiononly = 1 if $Config{versiononly};
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblett
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett# Added for ON
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblettumask(0022) unless $Is_VMS;
d9e78002fb0bf01a9b72d3d3415fdf9790bdfee8Andy Gimblett
eeaf0a8a1dc535d105904a2190f26c0835ecf429Andy Gimblettmy @scripts = qw(utils/c2ph utils/h2ph utils/h2xs utils/perlbug utils/perldoc
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett utils/pl2pm utils/splain utils/perlcc utils/dprofpp
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett x2p/s2p x2p/find2perl
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett pod/pod2man pod/pod2html pod/pod2latex pod/pod2text
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett pod/pod2usage pod/podchecker pod/podselect);
fbc0c2baf563fe5b664f0152674a8d3acecca58cAndy Gimblett
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett# Added for ON - install the scripts (if any) from contrib_bin.
e771539425f4a0abef9f94cf4b63690f3603f682Andy Gimblettmy $dh;
e771539425f4a0abef9f94cf4b63690f3603f682Andy Gimblettif (opendir($dh, 'contrib_bin')) {
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett push(@scripts,
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett map("contrib_bin/$_", grep($_ !~ /^\./, readdir($dh))));
820947bd01ca952c3909eaa0366c6914c87cc1cbTill Mossakowski closedir($dh);
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett}
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblettif ($scr_ext) { @scripts = map { "$_$scr_ext" } @scripts; }
fbc0c2baf563fe5b664f0152674a8d3acecca58cAndy Gimblett
90047eafd2de482c67bcd13103c6064e9b0cb254Andy Gimblettmy @pods = (<pod/*.pod>);
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
e8c03c10d7987b223a9f6bfd5c0c54da21da5b86Andy Gimblett# Specify here any .pm files that are actually architecture-dependent.
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett# (Those included with XS extensions under ext/ are automatically
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett# added later.)
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett# Now that the default privlib has the full perl version number included,
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett# we no longer have to play the trick of sticking version-specific .pm
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett# files under the archlib directory.
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblettmy %archpms = (
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett Config => 1,
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett);
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblettif ($^O eq 'dos') {
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett push(@scripts,'djgpp/fixpmain');
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett $archpms{config} = $archpms{filehand} = 1;
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett}
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblettif ((-e "testcompile") && (defined($ENV{'COMPILE'})))
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett{
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett push(@scripts, map("$_.exe", @scripts));
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett}
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
a79fe3aad8743ea57e473ea5f66a723244cb9c0eMarkus Roggenbachfind(sub {
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett if ("$File::Find::dir/$_" =~ m{^ext\b(.*)/([^/]+)\.pm$}) {
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett my($path, $modname) = ($1,$2);
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett # strip trailing component first
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett $path =~ s{/[^/]*$}{};
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett # strip optional "/lib";
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett $path =~ s{/lib\b}{};
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett # strip any leading /
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett $path =~ s{^/}{};
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett # reconstitute canonical module name
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett $modname = "$path/$modname" if length $path;
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett # remember it
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett $archpms{$modname} = 1;
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett }
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett }, 'ext');
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett# print "[$_]\n" for sort keys %archpms;
8528886a04f14abe0ddf80f50c853cc25bc821cdAndy Gimblett
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblettmy $ver = $Config{version};
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblettmy $release = substr($],0,3); # Not used currently.
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblettmy $patchlevel = substr($],3,2);
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblettdie "Patchlevel of perl ($patchlevel)",
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett "and patchlevel of config.sh ($Config{'PERL_VERSION'}) don't match\n"
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett if $patchlevel != $Config{'PERL_VERSION'};
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett# Read $ROOT - location of the proto area for the install.
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblettmy $root = $ENV{ROOT};
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblett
7caf9f99d426a25d56eb7473fea1f55ce4460762Andy Gimblett# Fetch some frequently-used items from %Config
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblettmy $installbin = $root . $Config{installbin};
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblettmy $installscript = $root . $Config{installscript};
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblettmy $installprivlib = $root . $Config{installprivlib};
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblettmy $installarchlib = $root . $Config{installarchlib};
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblettmy $installsitelib = $root . $Config{installsitelib};
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblettmy $installsitearch = $root . $Config{installsitearch};
e8c03c10d7987b223a9f6bfd5c0c54da21da5b86Andy Gimblettmy $installman1dir = $root . $Config{installman1dir};
e8c03c10d7987b223a9f6bfd5c0c54da21da5b86Andy Gimblettmy $man1ext = $Config{man1ext};
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblettmy $libperl = $root . $Config{libperl};
e8c03c10d7987b223a9f6bfd5c0c54da21da5b86Andy Gimblett# Shared library and dynamic loading suffixes.
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblettmy $so = $Config{so};
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblettmy $dlext = $Config{dlext};
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblettmy $dlsrc = $Config{dlsrc};
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblettif ($^O eq 'os390') {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett my $usedl = $Config{usedl};
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett if ($usedl eq 'define') {
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett my $pwd;
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett chomp($pwd=`pwd`);
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett my $archlibexp = $Config{archlibexp};
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett `./$^X -p -e 's{$pwd\/libperl.x}{$archlibexp/CORE/libperl.x}' lib/Config.pm`;
e8c03c10d7987b223a9f6bfd5c0c54da21da5b86Andy Gimblett }
e8c03c10d7987b223a9f6bfd5c0c54da21da5b86Andy Gimblett}
7caf9f99d426a25d56eb7473fea1f55ce4460762Andy Gimblett
d326dac41dadbe2b84bb7021cbfd91f4dd4a19bcAndy Gimblettmy $d_dosuid = $Config{d_dosuid};
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblettmy $binexp = $Config{binexp};
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblettif ($Is_VMS) { # Hang in there until File::Spec hits the big time
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett foreach ( \$installbin, \$installscript, \$installprivlib,
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett \$installarchlib, \$installsitelib, \$installsitearch,
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett \$installman1dir ) {
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett $$_ = unixify($$_); $$_ =~ s:/$::;
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett }
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett}
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett# Do some quick sanity checks.
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblettif ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett $installbin || die "No installbin directory in config.sh\n";
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett-d $installbin || mkpath($installbin, $verbose, 0777);
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett-d $installbin || $nonono || die "$installbin is not a directory\n";
e95030058b77cb83593c85aa4c506caf154f63b7Andy Gimblett-w $installbin || $nonono || die "$installbin is not writable by you\n"
e8c03c10d7987b223a9f6bfd5c0c54da21da5b86Andy Gimblett unless $installbin =~ m#^/afs/# || $nonono;
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
fbc0c2baf563fe5b664f0152674a8d3acecca58cAndy Gimblett-x 'perl' . $exe_ext || die "perl isn't executable!\n";
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett-x 'suidperl' . $exe_ext|| die "suidperl isn't executable!\n" if $d_dosuid;
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# Removed for ON
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett#-f 't/rantests' || $Is_W32
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# || warn "WARNING: You've never run 'make test'!!!",
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# " (Installing anyway.)\n";
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettif ($Is_W32 or $Is_Cygwin) {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett my $perldll;
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett if ($Is_Cygwin) {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett $perldll = $libperl;
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett $perldll =~ s/(\..*)?$/.$dlext/;
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett if ($Config{useshrplib} eq 'true') {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett # install ld2 and perlld as well
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett foreach ('ld2', 'perlld') {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett safe_unlink("$installbin/$_");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett copy("$_", "$installbin/$_");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chmod(0755, "$installbin/$_");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett };
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett };
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett } else {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett $perldll = 'perl56.' . $dlext;
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett }
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett if ($dlsrc ne "dl_none.xs") {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett -f $perldll || die "No perl DLL built\n";
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett }
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett # Install the DLL
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett safe_unlink("$installbin/$perldll");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett copy("$perldll", "$installbin/$perldll");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chmod(0755, "$installbin/$perldll");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett} # if ($Is_W32 or $Is_Cygwin)
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# This will be used to store the packlist
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettmy $packlist = ExtUtils::Packlist->new();
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# First we install the version-numbered executables.
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettif ($Is_VMS) {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett safe_unlink("$installbin/$perl$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett copy("perl$exe_ext", "$installbin/$perl$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chmod(0755, "$installbin/$perl$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett safe_unlink("$installbin/${perl}shr$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett copy("perlshr$exe_ext", "$installbin/${perl}shr$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chmod(0755, "$installbin/${perl}shr$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett}
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettelsif ($^O eq 'mpeix') {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett # MPE lacks hard links and requires that executables with special
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett # capabilities reside in the MPE namespace.
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett safe_unlink("$installbin/perl$ver$exe_ext", $Config{perlpath});
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett # Install the primary executable into the MPE namespace as perlpath.
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett copy("perl$exe_ext", $Config{perlpath});
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chmod(0755, $Config{perlpath});
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett # Create a backup copy with the version number.
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett link($Config{perlpath}, "$installbin/perl$ver$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett}
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettelsif ($^O ne 'dos') {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett copy_if_diff("perl$exe_ext", "$installbin/$perl_verbase$ver$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chmod(0755, "$installbin/$perl_verbase$ver$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett strip("$installbin/$perl_verbase$ver$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chmod(0555, "$installbin/$perl_verbase$ver$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett}
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettelse {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett safe_unlink("$installbin/$perl.exe");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett copy("perl.exe", "$installbin/$perl.exe");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett}
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettsafe_unlink("$installbin/s$perl_verbase$ver$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettif ($d_dosuid) {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett copy("suidperl$exe_ext", "$installbin/s$perl_verbase$ver$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext");
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett}
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# Install library files.
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettmy ($do_installarchlib, $do_installprivlib) = (0, 0);
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettmkpath($installprivlib, $verbose, 0777);
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettmkpath($installarchlib, $verbose, 0777);
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettmkpath($installsitelib, $verbose, 0777) if ($installsitelib);
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettmkpath($installsitearch, $verbose, 0777) if ($installsitearch);
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblettif (chdir "lib") {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett $do_installarchlib = ! samepath($installarchlib, '.');
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett $do_installprivlib = ! samepath($installprivlib, '.');
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett $do_installprivlib = 0 if $versiononly && !($installprivlib =~ m/\Q$ver/);
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett if ($do_installarchlib || $do_installprivlib) {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett find(\&installlib, '.');
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett }
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett chdir ".." || die "Can't cd back to source directory: $!\n";
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett}
a09bfcbcb0fba5663fca1968aa82daebf2e092c4Andy Gimblettelse {
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett warn "Can't cd to lib to install lib files: $!\n";
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblett}
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblett# Install header files and libraries.
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblettmkpath("$installarchlib/CORE", $verbose, 0777);
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblettmy @corefiles;
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblettif ($Is_VMS) { # We did core file selection during build
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblett my $coredir = "lib/$Config{archname}/$ver/CORE";
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblett $coredir =~ tr/./_/;
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett map { s|^$coredir/||i; } @corefiles = <$coredir/*.*>;
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett}
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblettelse {
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett # [als] hard-coded 'libperl' name... not good!
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett @corefiles = <*.h libperl*.*>;
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett # AIX needs perl.exp installed as well.
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblett push(@corefiles,'perl.exp') if $^O eq 'aix';
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblett if ($^O eq 'mpeix') {
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblett # MPE needs mpeixish.h installed as well.
7996f5f893cc14b5e22fdb7ec90a3474ba3c51abAndy Gimblett mkpath("$installarchlib/CORE/mpeix", $verbose, 0777);
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett push(@corefiles,'mpeix/mpeixish.h');
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett }
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett # If they have built sperl.o...
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett push(@corefiles,'sperl.o') if -f 'sperl.o';
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett}
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblettforeach my $file (@corefiles) {
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett # HP-UX (at least) needs to maintain execute permissions
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett # on dynamically-loadable libraries. So we do it for all.
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett if (copy_if_diff($file,"$installarchlib/CORE/$file")) {
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett if ($file =~ /\.(\Q$so\E|\Q$dlext\E)$/) {
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett chmod(0555, "$installarchlib/CORE/$file");
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett strip("-S", "$installarchlib/CORE/$file") if $^O =~ /^(rhapsody|darwin)$/;
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett } else {
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett chmod(0444, "$installarchlib/CORE/$file");
a09bfcbcb0fba5663fca1968aa82daebf2e092c4Andy Gimblett }
a09bfcbcb0fba5663fca1968aa82daebf2e092c4Andy Gimblett }
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett}
a09bfcbcb0fba5663fca1968aa82daebf2e092c4Andy Gimblett
a09bfcbcb0fba5663fca1968aa82daebf2e092c4Andy Gimblett# Install main perl executables
a09bfcbcb0fba5663fca1968aa82daebf2e092c4Andy Gimblett# Make links to ordinary names if installbin directory isn't current directory.
d9e78002fb0bf01a9b72d3d3415fdf9790bdfee8Andy Gimblett
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblettif (! $versiononly && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VMS) {
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett safe_unlink("$installbin/$perl$exe_ext", "$installbin/suid$perl$exe_ext");
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett if ($^O eq 'mpeix') {
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett # MPE doesn't support hard links, so use a symlink.
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett # We don't want another cloned copy.
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett symlink($Config{perlpath}, "$installbin/perl$exe_ext");
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett } else {
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett link("$installbin/$perl_verbase$ver$exe_ext",
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett "$installbin/$perl$exe_ext");
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett }
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett link("$installbin/s$perl_verbase$ver$exe_ext",
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett "$installbin/suid$perl$exe_ext")
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett if $d_dosuid;
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett}
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett# Offer to install perl in a "standard" location
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
fbc0c2baf563fe5b664f0152674a8d3acecca58cAndy Gimblettmy $mainperl_is_instperl = 0;
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblettif ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' &&
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett !$versiononly && !$nonono && !$Is_W32 && !$Is_VMS && -t STDIN && -t STDERR
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett && -w $mainperldir && ! samepath($mainperldir, $installbin)) {
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett my($usrbinperl) = "$mainperldir/$perl$exe_ext";
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett my($instperl) = "$installbin/$perl$exe_ext";
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett my($expinstperl) = "$binexp/$perl$exe_ext";
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett # First make sure $usrbinperl is not already the same as the perl we
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett # just installed.
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett if (-x $usrbinperl) {
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett # Try to be clever about mainperl being a symbolic link
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett # to binexp/perl if binexp and installbin are different.
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett $mainperl_is_instperl =
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett samepath($usrbinperl, $instperl) ||
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett samepath($usrbinperl, $expinstperl) ||
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett (($binexp ne $installbin) &&
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett (-l $usrbinperl) &&
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett ((readlink $usrbinperl) eq $expinstperl));
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett }
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett if ((! $mainperl_is_instperl) &&
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett (yn("Many scripts expect perl to be installed as $usrbinperl.\n" .
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett "Do you wish to have $usrbinperl be the same as\n" .
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett "$expinstperl? [y] ")))
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett {
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett unlink($usrbinperl);
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett ( $Config{'d_link'} eq 'define' &&
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett eval { CORE::link $instperl, $usrbinperl } ) ||
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett eval { symlink $expinstperl, $usrbinperl } ||
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett copy($instperl, $usrbinperl);
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett $mainperl_is_instperl = 1;
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett }
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett}
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett# Make links to ordinary names if installbin directory isn't current directory.
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblettif (!$versiononly && ! samepath($installbin, 'x2p')) {
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett safe_unlink("$installbin/a2p$exe_ext");
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett copy("x2p/a2p$exe_ext", "$installbin/a2p$exe_ext");
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett chmod(0555, "$installbin/a2p$exe_ext");
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett}
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett# cppstdin is just a script, but it is architecture-dependent, so
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett# it can't safely be shared. Place it in $installbin.
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# Note that Configure doesn't build cppstin if it isn't needed, so
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# we skip this if cppstdin doesn't exist.
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblettif (! $versiononly && (-f 'cppstdin') && (! samepath($installbin, '.'))) {
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett safe_unlink("$installbin/cppstdin");
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett copy("cppstdin", "$installbin/cppstdin");
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett chmod(0555, "$installbin/cppstdin");
9582375827616730f146b77f9d5a4fd0cc78bc47Andy Gimblett}
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblettif (! $versiononly) {
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett # Install scripts.
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett mkpath($installscript, $verbose, 0777);
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett for (@scripts) {
adce8375991a372444ab995895442dca6faf9677Andy Gimblett (my $base = $_) =~ s#.*/##;
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett copy_if_diff($_, "$installscript/$base");
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett chmod(0555, "$installscript/$base");
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett }
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett # pstruct should be a link to c2ph
a731366827a80af216ce6bfd4aa6388260577791Andy Gimblett if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') {
31f039ffdb33d78cb31d24b71d3155b11a323975Andy Gimblett safe_unlink("$installscript/pstruct$scr_ext");
d297a45fc73aa6c4a1f9d073c3170611415f324bAndy Gimblett copy("$installscript/c2ph$scr_ext",
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett "$installscript/pstruct$scr_ext");
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett } elsif (! samepath("$installscript/c2ph$scr_ext",
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett "$installscript/pstruct$scr_ext")) {
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett safe_unlink("$installscript/pstruct$scr_ext");
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett link("$installscript/c2ph$scr_ext",
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett "$installscript/pstruct$scr_ext");
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett }
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett}
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett# Install pod pages. Where? I guess in $installprivlib/pod
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett# ($installprivlib/pods for cygwin).
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblettmy $pod = $Is_Cygwin ? 'pods' : 'pod';
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblettif ( !$versiononly || ($installprivlib =~ m/\Q$ver/)) {
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett mkpath("${installprivlib}/$pod", $verbose, 0777);
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett # If Perl 5.003's perldiag.pod is there, rename it.
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett if (open POD, "${installprivlib}/$pod/perldiag.pod") {
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett read POD, $_, 4000;
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett close POD;
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett # Some of Perl 5.003's diagnostic messages ended with periods.
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett if (/^=.*\.$/m) {
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett my ($from, $to) = ("${installprivlib}/$pod/perldiag.pod",
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett "${installprivlib}/$pod/perldiag-5.003.pod");
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett print " rename $from $to";
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett rename($from, $to)
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett or warn "Couldn't rename $from to $to: $!\n"
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett unless $nonono;
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett }
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett }
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett for (@pods) {
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett # $_ is a name like pod/perl.pod
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett (my $base = $_) =~ s#.*/##;
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett copy_if_diff($_, "${installprivlib}/$pod/${base}");
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett chmod(0444, "${installprivlib}/$pod/${base}");
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett }
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett}
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# Check to make sure there aren't other perls around in installer's
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# path. This is probably UNIX-specific. Check all absolute directories
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett# in the path except for where public executables are supposed to live.
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett# Also skip $mainperl if the user opted to have it be a link to the
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett# installed perl.
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett# Note: Removed for ON
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett#if (!$versiononly && $otherperls) {
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett# my ($path, @path);
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett# my $dirsep = ($Is_OS2 || $Is_W32) ? ';' : ':' ;
c679188b6762edb198e353f724e77c74aa64a7e4Andy Gimblett# ($path = $ENV{"PATH"}) =~ s:\\:/:g ;
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# @path = split(/$dirsep/, $path);
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# if ($Is_VMS) {
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# my $i = 0;
e54c5af823b9775dd2c058185ea5bdf7593950faAndy Gimblett# while (exists $ENV{'DCL$PATH' . $i}) {
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# my $dir = unixpath($ENV{'DCL$PATH' . $i}); $dir =~ s-/$--;
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# push(@path,$dir);
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# }
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# }
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# my @otherperls;
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# my %otherperls;
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# for (@path) {
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# next unless m,^/,;
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# # Use &samepath here because some systems have other dirs linked
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# # to $mainperldir (like SunOS)
f18cf8a4e7d512a2f57365ab1e9e7fdbb98ba257Andy Gimblett# next if samepath($_, $binexp);
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# next if ($mainperl_is_instperl && samepath($_, $mainperldir));
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett# my $otherperl = "$_/$perl$exe_ext";
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett# next if $otherperls{$otherperl}++;
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# push(@otherperls, $otherperl)
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# if (-x $otherperl && ! -d $otherperl);
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# }
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# if (@otherperls) {
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# warn "\nWarning: $perl appears in your path in the following " .
c909c215242232fe78ce335e677e6f22264a0ee9Christian Maeder# "locations beyond where\nwe just installed it:\n";
d04c328b10f17ec78001a94d694f7188ebd8c03cAndy Gimblett# for (@otherperls) {
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# warn " ", $_, "\n";
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# }
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# warn "\n";
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# }
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett#
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett#}
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblett# Added for ON - remove $ROOT prefix from the packlist entries.
bb83db66bd9b3b4ce67be66419daf29886175276Andy Gimblettmy $pat = qr{^$root};
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblettwhile (my ($k, $v) = each(%{$packlist})) {
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett delete($packlist->{$k});
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett $k =~ s/$pat//;
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett if ($v->{type} eq 'link') {
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett my $l = delete($v->{from});
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett $l =~ s/$pat//;
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett $v->{from} = $l;
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett }
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett $packlist->{$k} = $v;
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett}
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblettif (! $nonono) {
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett $packlist->write("$installarchlib/.packlist.tmp");
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett copy_if_diff("$installarchlib/.packlist.tmp",
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett "$installarchlib/.packlist");
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett safe_unlink("$installarchlib/.packlist.tmp");
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett chmod(0444, "$installarchlib/.packlist");
2f615f62c47e2c0ae9964f37f5bac6905d86f475Andy Gimblett}
print " Installation complete\n" if $verbose;
exit 0;
###############################################################################
sub yn {
my($prompt) = @_;
my($answer);
my($default) = $prompt =~ m/\[([yn])\]\s*$/i;
warn $prompt;
chop($answer = <STDIN>);
$answer = $default if $answer =~ m/^\s*$/;
($answer =~ m/^[yY]/);
}
sub unlink {
my(@names) = @_;
my($cnt) = 0;
return scalar(@names) if $Is_VMS;
foreach my $name (@names) {
next unless -e $name;
chmod 0777, $name if ($Is_OS2 || $Is_W32 || $Is_Cygwin);
print " unlink $name\n" if $verbose;
( CORE::unlink($name) and ++$cnt
or warn "Couldn't unlink $name: $!\n" ) unless $nonono;
}
return $cnt;
}
sub safe_unlink {
return if $nonono or $Is_VMS;
my @names = @_;
foreach my $name (@names) {
next unless -e $name;
chmod 0777, $name if ($Is_OS2 || $Is_W32);
print " unlink $name\n" if $verbose;
next if CORE::unlink($name);
warn "Couldn't unlink $name: $!\n";
if ($! =~ /busy/i) {
print " mv $name $name.old\n" if $verbose;
safe_rename($name, "$name.old")
or warn "Couldn't rename $name: $!\n";
}
}
}
sub safe_rename {
my($from,$to) = @_;
if (-f $to and not unlink($to)) {
my($i);
for ($i = 1; $i < 50; $i++) {
last if rename($to, "$to.$i");
}
warn("Cannot rename to `$to.$i': $!"), return 0
if $i >= 50; # Give up!
}
link($from,$to) || return 0;
unlink($from);
}
sub link {
my($from,$to) = @_;
my($success) = 0;
print $verbose ? " ln $from $to\n" : " $to\n" unless $silent;
eval {
CORE::link($from, $to)
? $success++
: ($from =~ m#^/afs/# || $to =~ m#^/afs/#)
? die "AFS" # okay inside eval {}
: die "Couldn't link $from to $to: $!\n"
unless $nonono;
$packlist->{$to} = { from => $from, type => 'link' };
};
if ($@) {
warn $@;
print $verbose ? " cp $from $to\n" : " $to\n" unless $silent;
print " creating new version of $to\n"
if $Is_VMS and -e $to and !$silent;
File::Copy::copy($from, $to)
? $success++
: warn "Couldn't copy $from to $to: $!\n"
unless $nonono;
$packlist->{$to} = { type => 'file' };
}
$success;
}
sub chmod {
my($mode,$name) = @_;
return if ($^O eq 'dos');
printf " chmod %o %s\n", $mode, $name if $verbose;
CORE::chmod($mode,$name)
|| warn sprintf("Couldn't chmod %o %s: $!\n", $mode, $name)
unless $nonono;
}
sub copy {
my($from,$to) = @_;
print $verbose ? " cp $from $to\n" : " $to\n" unless $silent;
print " creating new version of $to\n" if $Is_VMS and -e $to and !$silent;
File::Copy::copy($from, $to)
|| warn "Couldn't copy $from to $to: $!\n"
unless $nonono;
$packlist->{$to} = { type => 'file' };
}
sub samepath {
my($p1, $p2) = @_;
return (lc($p1) eq lc($p2)) if $Is_W32;
if ($p1 ne $p2) {
my($dev1, $ino1, $dev2, $ino2);
($dev1, $ino1) = stat($p1);
($dev2, $ino2) = stat($p2);
($dev1 == $dev2 && $ino1 == $ino2);
}
else {
1;
}
}
sub installlib {
my $dir = $File::Find::dir;
$dir =~ s#^\.(?![^/])/?##;
local($depth) = $dir ? "lib/$dir" : "lib";
my $name = $_;
# Ignore SCCS, RCS and CVS directories.
if ((($name eq 'SCCS' or $name eq 'CVS' or $name eq 'RCS') and -d $name)
or ($name eq '.tstamp' and -f $name)) {
$File::Find::prune = 1;
return;
}
# ignore patch backups, RCS files, emacs backup & temp files and the
# .exists files.
return if $name =~ m{\.orig$|~$|^#.+#$|,v$|^\.exists};
$name = "$dir/$name" if $dir ne '';
my $installlib = $installprivlib;
if ($dir =~ /^auto/ ||
($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) ||
($name =~ /^(.*)\.(?:h|lib)$/i && $Is_W32)
) {
$installlib = $installarchlib;
return unless $do_installarchlib;
} else {
return unless $do_installprivlib;
}
if (-f $_) {
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
#distribution:
#This might not work because $archname might have changed.
unlink("$installarchlib/$name");
}
$packlist->{"$installlib/$name"} = { type => 'file' };
if (compare($_, "$installlib/$name") || $nonono) {
unlink("$installlib/$name");
mkpath("$installlib/$dir", $verbose, 0777);
# HP-UX (at least) needs to maintain execute permissions
# on dynamically-loaded libraries.
copy_if_diff($_, "$installlib/$name")
and chmod($name =~ /\.(so|$dlext)$/o ? 0555 : 0444,
"$installlib/$name");
}
}
}
# Copy $from to $to, only if $from is different than $to.
# Also preserve modification times for .a libraries.
# On some systems, if you do
# ranlib libperl.a
# cp libperl.a /usr/local/lib/perl5/archlib/CORE/libperl.a
# and then try to link against the installed libperl.a, you might
# get an error message to the effect that the symbol table is older
# than the library.
# Return true if copying occurred.
sub copy_if_diff {
my($from,$to)=@_;
return 1 if (($^O eq 'VMS') && (-d $from));
-f $from || warn "$0: $from not found";
$packlist->{$to} = { type => 'file' };
if (compare($from, $to) || $nonono) {
safe_unlink($to); # In case we don't have write permissions.
if ($nonono) {
$from = $depth . "/" . $from if $depth;
}
copy($from, $to);
# Restore timestamps if it's a .a library or for OS/2.
if (!$nonono && ($Is_OS2 || $to =~ /\.a$/)) {
my ($atime, $mtime) = (stat $from)[8,9];
utime $atime, $mtime, $to;
}
1;
}
}
sub strip
{
my(@args) = @_;
return unless $dostrip;
my @opts;
while (@args && $args[0] =~ /^(-\w+)$/) {
push @opts, shift @args;
}
foreach my $file (@args) {
if (-f $file) {
print " strip $file\n" if $verbose;
system("strip", @opts, $file);
} else {
print "# file '$file' skipped\n" if $verbose;
}
}
}