diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2003-08-31 06:11:54 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-31 14:51:19 +0000 |
| commit | 9edbfc61df4a4049efdc8635695dc99a6fd4c770 (patch) | |
| tree | 8bdb53a35494544d639756487fa6b2f6cccaf042 | |
| parent | 8bd2680e3b194d05a401f05b0328c95082b6b9d3 (diff) | |
| download | perl-9edbfc61df4a4049efdc8635695dc99a6fd4c770.tar.gz | |
have installperl install perl_setup.com and dbga2p.exe for VMS
Message-ID: <OF0394CB1E.C7646793-ON85256D93.004D75D4-85256D93.004E01F2@factset.com>
Date: Sun, 31 Aug 2003 10:11:54 -0400
p4raw-id: //depot/perl@20969
| -rwxr-xr-x | installperl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/installperl b/installperl index 63a8d666e6..3b734551e1 100755 --- a/installperl +++ b/installperl @@ -309,6 +309,9 @@ my $packlist = ExtUtils::Packlist->new("$installarchlib/.packlist"); # First we install the version-numbered executables. if ($Is_VMS) { + safe_unlink("$installbin/perl_setup.com"); + copy("perl_setup.com", "$installbin/perl_setup.com"); + chmod(0755, "$installbin/perl_setup.com"); safe_unlink("$installbin/$dbg$perl$exe_ext"); copy("$dbg$perl$exe_ext", "$installbin/$dbg$perl$exe_ext"); chmod(0755, "$installbin/$dbg$perl$exe_ext"); @@ -316,9 +319,12 @@ if ($Is_VMS) { copy("$dbg${perl}shr$exe_ext", "$installbin/$dbg${perl}shr$exe_ext"); chmod(0755, "$installbin/$dbg${perl}shr$exe_ext"); if ($ndbg) { - safe_unlink("$installbin/$ndbg$perl$exe_ext"); - copy("$ndbg$perl$exe_ext", "$installbin/$ndbg$perl$exe_ext"); - chmod(0755, "$installbin/$ndbg$perl$exe_ext"); + safe_unlink("$installbin/$ndbg$perl$exe_ext"); + copy("$ndbg$perl$exe_ext", "$installbin/$ndbg$perl$exe_ext"); + chmod(0755, "$installbin/$ndbg$perl$exe_ext"); + safe_unlink("$installbin/${dbg}a2p$exe_ext"); + copy("x2p/${dbg}a2p$exe_ext", "$installbin/${dbg}a2p$exe_ext"); + chmod(0755, "$installbin/${dbg}a2p$exe_ext"); } } elsif ($^O eq 'mpeix') { @@ -497,7 +503,7 @@ if ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' && } # Make links to ordinary names if installbin directory isn't current directory. -if (!$Is_NetWare) { +if (!$Is_NetWare && $dbg eq '') { if (! samepath($installbin, 'x2p')) { my $base = 'a2p'; $base .= $ver if $versiononly; |