diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-03-11 12:05:00 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-12 05:27:06 +0000 |
| commit | eb96f679680bed629ede6d8fbbb6f96abddceb19 (patch) | |
| tree | 25529fcbdb189c516194d1885f2faf6c76d78382 /installperl | |
| parent | 38b5cfe17505e32a79a0435cad2c47e689b89d92 (diff) | |
| download | perl-eb96f679680bed629ede6d8fbbb6f96abddceb19.tar.gz | |
installperl - minor untangle for VOS
Message-Id: <200203112203.RAA21987@mailhub2.stratus.com>
p4raw-id: //depot/perl@15186
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/installperl b/installperl index 827e30a160..f36b4c0d05 100755 --- a/installperl +++ b/installperl @@ -413,10 +413,14 @@ 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' || $^O eq 'vos') { - # MPE and VOS don't support hard links, so use a symlink. + 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"); + } elsif ($^O eq 'vos') { + # VOS doesn't support hard links, so use a symlink. + symlink("$installbin/$perl_verbase$ver$exe_ext", + "$installbin/$archperl"); } else { link("$installbin/$perl_verbase$ver$exe_ext", "$installbin/$archperl"); |