[PATCH] *BETTER* installperl script patch for VOS

(I got the filenames wrong in the patch I just sent.  This mail
has the right filenames for the diff. Sorry about that).

VOS does not implement hard links.  We do implement symbolic
links.  I have therefore patched 'installperl' to use symbolic
links when running on VOS.

Tested by me on VOS.  Patch is vs 15001.

### START OF PATCH ###

diff -ur oldperl/installperl newperl/installperl
--- oldperl/installperl	Fri Mar  8 14:07:28 2002
+++ newperl/installperl	Fri Mar  8 14:40:01 2002
@@ -395,6 +395,10 @@
 	# 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 ($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 @@
     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");

### END OF PATCH ###

Thanks
PG
--
Paul Green                  | Mail: Paul.Green@stratus.com
Senior Technical Consultant | Voice: +1 978-461-7557   FAX: +1 978-461-3610
Stratus Technologies        | Video: PictureTel/AT&T by request.
Maynard, MA  01754          | Disclaimer: I speak for myself, not Stratus.

0
Paul_GreenVOS
3/8/2002 10:45:00 PM
perl.perl5.porters 48287 articles. 1 followers. Follow

1 Replies
317 Views

Similar Articles

[PageSpeed] 38

On Fri, Mar 08, 2002 at 02:45:00PM -0500, Paul_GreenVOS@vos.stratus.com wrote:
> (I got the filenames wrong in the patch I just sent.  This mail
> has the right filenames for the diff. Sorry about that).
> 
> VOS does not implement hard links.  We do implement symbolic
> links.  I have therefore patched 'installperl' to use symbolic
> links when running on VOS.
> 
> Tested by me on VOS.  Patch is vs 15001.

Thanks, applied.

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen
0
jhi
3/8/2002 7:57:16 PM
Reply: