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 | 4a208d7164dc2a4fd872017cc0e9134037ebce1a (patch) | |
| tree | 436aaed11b8b492149305002c11a42fe3db6c4df /installperl | |
| parent | 535fa49136b86664369039d6825845b3e3700438 (diff) | |
| download | perl-4a208d7164dc2a4fd872017cc0e9134037ebce1a.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 { |