From eb96f679680bed629ede6d8fbbb6f96abddceb19 Mon Sep 17 00:00:00 2001 From: Paul Green Date: Mon, 11 Mar 2002 12:05:00 -0500 Subject: [PATCH] installperl - minor untangle for VOS Message-Id: <200203112203.RAA21987@mailhub2.stratus.com> p4raw-id: //depot/perl@15186 --- installperl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/installperl b/installperl index 827e30a..f36b4c0 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"); -- 2.7.4