diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-06 21:23:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-06 21:23:27 +0000 |
| commit | ed2e6d2e01a7718afd8d54f515abd99778a69c4a (patch) | |
| tree | 436aaed11b8b492149305002c11a42fe3db6c4df /installperl | |
| parent | 00ef99c9a7aafa6f235c188d1a93d0332e365eba (diff) | |
| download | perl-ed2e6d2e01a7718afd8d54f515abd99778a69c4a.tar.gz | |
Use $^O.
p4raw-id: //depot/cfgperl@5587
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/installperl b/installperl index f6e45f59dc..cd3e0a3743 100755 --- a/installperl +++ b/installperl @@ -375,7 +375,7 @@ if (! $versiononly) { if (! $versiononly) { safe_unlink("$installscript/pstruct$scr_ext"); - if ($osname eq 'dos' or $Is_VMS or $osname eq 'transit') { + if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') { copy("$installscript/c2ph$scr_ext", "$installscript/pstruct$scr_ext"); chmod(0755, "$installscript/pstruct$scr_ext"); } else { |