diff options
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 36 |
1 files changed, 16 insertions, 20 deletions
diff --git a/installperl b/installperl index b027d02705..c65af5afa9 100755 --- a/installperl +++ b/installperl @@ -364,30 +364,26 @@ if (! $versiononly && (-f 'cppstdin') && (! samepath($installbin, '.'))) { chmod(0755, "$installbin/cppstdin"); } -if ($Config{installscripts} eq 'define') { - # Install scripts. +# Install scripts. - mkpath($installscript, $verbose, 0777); +mkpath($installscript, $verbose, 0777); - if (! $versiononly) { - for (@scripts) { - (my $base = $_) =~ s#.*/##; - copy($_, "$installscript/$base"); - chmod(0755, "$installscript/$base"); - } +if (! $versiononly) { + for (@scripts) { + (my $base = $_) =~ s#.*/##; + copy($_, "$installscript/$base"); + chmod(0755, "$installscript/$base"); } +} - # pstruct should be a link to c2ph - - if (! $versiononly) { - safe_unlink("$installscript/pstruct$scr_ext"); - if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') { - copy("$installscript/c2ph$scr_ext", - "$installscript/pstruct$scr_ext"); - } else { - link("$installscript/c2ph$scr_ext", - "$installscript/pstruct$scr_ext"); - } +# pstruct should be a link to c2ph + +if (! $versiononly) { + safe_unlink("$installscript/pstruct$scr_ext"); + if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') { + copy("$installscript/c2ph$scr_ext", "$installscript/pstruct$scr_ext"); + } else { + link("$installscript/c2ph$scr_ext", "$installscript/pstruct$scr_ext"); } } |