This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
installperl - minor untangle for VOS
authorPaul Green <Paul.Green@stratus.com>
Mon, 11 Mar 2002 17:05:00 +0000 (12:05 -0500)
committerAbhijit Menon-Sen <ams@wiw.org>
Tue, 12 Mar 2002 05:27:06 +0000 (05:27 +0000)
   Message-Id: <200203112203.RAA21987@mailhub2.stratus.com>

p4raw-id: //depot/perl@15186

installperl

index 827e30a..f36b4c0 100755 (executable)
@@ -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");