Change 15186 by ams@lustre on 2002/03/12 05:27:06
Subject: [PATCH] installperl - minor untangle for VOS
From: [EMAIL PROTECTED]
Date: Mon, 11 Mar 02 17:05 est
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/installperl#94 edit
Differences ...
==== //depot/perl/installperl#94 (xtext) ====
Index: perl/installperl
--- perl/installperl.~1~ Mon Mar 11 22:30:06 2002
+++ perl/installperl Mon Mar 11 22:30:06 2002
@@ -413,10 +413,14 @@
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");
End of Patch.
