From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 2 May 2001 15:15:53 +0000 (+0000)
Subject: Bug in #9915, spotted by Mike Guy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eea3e08689220c9a779c03d0f6b6668e3cb6d7fb;p=p5sagit%2Fp5-mst-13.2.git

Bug in #9915, spotted by Mike Guy.

p4raw-id: //depot/perl@9958
---

diff --git a/installperl b/installperl
index c35482d..6adcdf2 100755
--- a/installperl
+++ b/installperl
@@ -396,7 +396,7 @@ if (! $versiononly && (-f 'cppstdin') && (! samepath($installbin, '.'))) {
 sub script_alias {
     my ($installscript, $orig, $alias, $scr_ext) = @_;
 
-    safe_unlink("$installscript/pstruct$scr_ext");
+    safe_unlink("$installscript/$alias$scr_ext");
     if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') {
 	copy("$installscript/$orig$scr_ext",
 	     "$installscript/$alias$scr_ext"); 
@@ -418,10 +418,10 @@ if (! $versiononly) {
     }
 
     # pstruct should be a link to c2ph
-    script_alias('c2ph', 'pstruct');
+    script_alias($installscript, 'c2ph', 'pstruct', $scr_ext);
 
     # psed should be a link to s2p
-    script_alias('s2p', 'psed');
+    script_alias($installscript, 's2p', 'psed',     $scr_ext);
 }
 
 # Install pod pages.  Where? I guess in $installprivlib/pod