use strict;
my ($Is_VMS, $Is_W32, $Is_OS2, $Is_Cygwin, $nonono, $dostrip,
- $versiononly, $silent, $verbose, $otherperls);
+ $versiononly, $silent, $verbose, $otherperls, $archname);
use vars qw /$depth/;
BEGIN {
$nonono = 1 if $ARGV[0] eq '-n';
$dostrip = 1 if $ARGV[0] eq '-s';
$versiononly = 1 if $ARGV[0] eq '-v';
+ $versiononly = 0 if $ARGV[0] eq '+v';
$silent = 1 if $ARGV[0] eq '-S';
$otherperls = 0 if $ARGV[0] eq '-o';
$verbose = 1 if $ARGV[0] eq '-V' || $ARGV [0] eq '-n';
+ $archname = 1 if $ARGV[0] eq '-A';
shift;
}
-$versiononly = 1 if $Config{versiononly};
+$versiononly = 1 if $Config{versiononly} && !defined $versiononly;
my @scripts = qw(utils/c2ph utils/h2ph utils/h2xs utils/perlbug utils/perldoc
utils/pl2pm utils/splain utils/perlcc utils/dprofpp
# print "[$_]\n" for sort keys %archpms;
my $ver = $Config{version};
-my $release = substr($],0,3); # Not used presently.
+my $release = substr($],0,3); # Not used currently.
my $patchlevel = substr($],3,2);
die "Patchlevel of perl ($patchlevel)",
"and patchlevel of config.sh ($Config{'PERL_VERSION'}) don't match\n"
my $so = $Config{so};
my $dlext = $Config{dlext};
my $dlsrc = $Config{dlsrc};
+if ($^O eq 'os390') {
+ my $pwd;
+ chomp($pwd=`pwd`);
+ my $archlibexp = $Config{archlibexp};
+ my $usedl = $Config{usedl};
+ if ($usedl eq 'define') {
+ `./$^X -pibak -e 's{$pwd\/libperl.x}{$archlibexp/CORE/libperl.x}' lib/Config.pm`;
+ }
+}
my $d_dosuid = $Config{d_dosuid};
my $binexp = $Config{binexp};
};
};
} else {
- $perldll = 'perl56.' . $dlext;
+ $perldll = 'perl57.' . $dlext;
}
if ($dlsrc ne "dl_none.xs") {
if $d_dosuid;
}
+# For development purposes it can be very useful to have multiple perls
+# build for different "architectures" (eg threading or not) simultaneously.
+if ($archname && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VMS) {
+ my $archperl = "$perl_verbase$ver-$Config{archname}$exe_ext";
+ safe_unlink("$installbin/$archperl");
+ if ($^O eq 'mpeix') {
+ # MPE doesn't support hard links, so use a symlink.
+ # We don't want another cloned copy.
+ symlink($Config{perlpath}, "$installbin/$archperl");
+ } else {
+ link("$installbin/$perl_verbase$ver$exe_ext",
+ "$installbin/$archperl");
+ }
+}
+
# Offer to install perl in a "standard" location
my $mainperl_is_instperl = 0;
chmod(0755, "$installbin/cppstdin");
}
+sub script_alias {
+ my ($installscript, $orig, $alias, $scr_ext) = @_;
+
+ safe_unlink("$installscript/pstruct$scr_ext");
+ if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') {
+ copy("$installscript/$orig$scr_ext",
+ "$installscript/$alias$scr_ext");
+ } else {
+ link("$installscript/$orig$scr_ext",
+ "$installscript/$alias$scr_ext");
+ }
+}
+
if (! $versiononly) {
# Install scripts.
}
# pstruct should be a link to c2ph
- safe_unlink("$installscript/pstruct$scr_ext");
- if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') {
- copy("$installscript/c2ph$scr_ext",
- "$installscript/pstruct$scr_ext");
- } else {
- link("$installscript/c2ph$scr_ext",
- "$installscript/pstruct$scr_ext");
- }
+ script_alias('c2ph', 'pstruct');
+
+ # psed should be a link to s2p
+ script_alias('s2p', 'psed');
}
# Install pod pages. Where? I guess in $installprivlib/pod
my($prompt) = @_;
my($answer);
my($default) = $prompt =~ m/\[([yn])\]\s*$/i;
- warn $prompt;
+ print STDERR $prompt;
chop($answer = <STDIN>);
$answer = $default if $answer =~ m/^\s*$/;
($answer =~ m/^[yY]/);