diff options
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 36 |
1 files changed, 20 insertions, 16 deletions
diff --git a/installperl b/installperl index c65af5afa9..b027d02705 100755 --- a/installperl +++ b/installperl @@ -364,26 +364,30 @@ if (! $versiononly && (-f 'cppstdin') && (! samepath($installbin, '.'))) { chmod(0755, "$installbin/cppstdin"); } -# Install scripts. +if ($Config{installscripts} eq 'define') { + # 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"); + } } } |