From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 6 Mar 2000 21:23:27 +0000 (+0000)
Subject: Use $^O.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a208d7164dc2a4fd872017cc0e9134037ebce1a;p=p5sagit%2Fp5-mst-13.2.git

Use $^O.

p4raw-id: //depot/cfgperl@5587
---

diff --git a/installperl b/installperl
index f6e45f5..cd3e0a3 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 {