diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-03-08 09:45:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-08 18:53:42 +0000 |
| commit | 7e6b8b1f52e0373e6767447e297b272f88bd4dfc (patch) | |
| tree | 5b8582c4b7507c9db38e492c54330f1b13e0151a /installperl | |
| parent | 7bb28473f769b872d83ec084169b09b5c7fafd90 (diff) | |
| download | perl-7e6b8b1f52e0373e6767447e297b272f88bd4dfc.tar.gz | |
*BETTER* installperl script patch for VOS
Message-Id: <200203081947.OAA29065@mailhub1.stratus.com>
p4raw-id: //depot/perl@15116
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/installperl b/installperl index 6b702bd221..827e30a160 100755 --- a/installperl +++ b/installperl @@ -395,6 +395,10 @@ if (! $versiononly && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VM # MPE doesn't support hard links, so use a symlink. # We don't want another cloned copy. symlink($Config{perlpath}, "$installbin/perl$exe_ext"); + } elsif ($^O eq 'vos') { + # VOS doesn't support hard links, so use a symlink. + symlink("$installbin/$perl_verbase$ver$exe_ext", + "$installbin/$perl$exe_ext"); } else { link("$installbin/$perl_verbase$ver$exe_ext", "$installbin/$perl$exe_ext"); @@ -409,8 +413,8 @@ if (! $versiononly && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VM 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. + if ($^O eq 'mpeix' || $^O eq 'vos') { + # MPE and VOS don't support hard links, so use a symlink. # We don't want another cloned copy. symlink($Config{perlpath}, "$installbin/$archperl"); } else { @@ -480,6 +484,9 @@ sub script_alias { if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') { copy("$installscript/$orig$scr_ext", "$installscript/$alias$scr_ext"); + } elsif ($^O eq 'vos') { + symlink("$installscript/$orig$scr_ext", + "$installscript/$alias$scr_ext"); } else { link("$installscript/$orig$scr_ext", "$installscript/$alias$scr_ext"); |