develooper Front page | perl.perl5.porters | Postings from November 2000

[PATCH] $^O win32 -> MSWin32

Thread Next
From:
rspier
Date:
November 28, 2000 23:17
Subject:
[PATCH] $^O win32 -> MSWin32
Message ID:
14884.44434.340627.126145@localhost.localdomain

I found a few test cases which were checking $^O against 'win32'
instead of 'MSWin32'

--- t/op/lfs.t.orig     Wed Nov 29 02:11:00 2000
+++ t/op/lfs.t  Wed Nov 29 02:11:12 2000
@@ -45,7 +45,7 @@
 print "# checking whether we have sparse files...\n";
 
 # Known have-nots.
-if ($^O eq 'win32' || $^O eq 'vms') {
+if ($^O eq 'MSWin32' || $^O eq 'vms') {
     print "1..0 # Skip: no sparse files (because this is $^O) \n";
     bye();
 }

--- t/lib/syslfs.t.orig Wed Nov 29 02:09:48 2000
+++ t/lib/syslfs.t      Wed Nov 29 02:10:07 2000
@@ -46,7 +46,7 @@
 print "# checking whether we have sparse files...\n";
 
 # Known have-nots.
-if ($^O eq 'win32' || $^O eq 'vms') {
+if ($^O eq 'MSWin32' || $^O eq 'vms') {
     print "1..0 # Skip: no sparse files (because this is $^O) \n";
     bye();
 }


-- 


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About