diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 15:15:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 15:15:53 +0000 |
| commit | eea3e08689220c9a779c03d0f6b6668e3cb6d7fb (patch) | |
| tree | 67572aad53a8e772f28c5f085d698b1953b890df /installperl | |
| parent | 1f1cc344493de26d4fb2dc9d28a7a18134e67bc6 (diff) | |
| download | perl-eea3e08689220c9a779c03d0f6b6668e3cb6d7fb.tar.gz | |
Bug in #9915, spotted by Mike Guy.
p4raw-id: //depot/perl@9958
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/installperl b/installperl index c35482db93..6adcdf2992 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 |