From: Robert Spier Date: Wed, 29 Nov 2000 02:17:38 +0000 (-0500) Subject: $^O win32 -> MSWin32 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86e48eb5919e74f9dfc880af54f85fde9c591234;p=p5sagit%2Fp5-mst-13.2.git $^O win32 -> MSWin32 Message-ID: <14884.44434.340627.126145@localhost.localdomain> plus similar nits for vms, err, VMS, and UNICOS. p4raw-id: //depot/perl@7917 --- diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t index bc38395..39a57f3 100644 --- a/t/lib/syslfs.t +++ b/t/lib/syslfs.t @@ -46,15 +46,15 @@ EOM print "# checking whether we have sparse files...\n"; # Known have-nots. -if ($^O eq 'win32' || $^O eq 'vms') { - print "1..0 # Skip: no sparse files (because this is $^O) \n"; +if ($^O eq 'MSWin32' || $^O eq 'VMS') { + print "1..0 # Skip: no sparse files in $^O\n"; bye(); } # Known haves that have problems running this test # (for example because they do not support sparse files, like UNICOS) if ($^O eq 'unicos') { - print "1..0 # Skip: large files known to work but unable to test them here ($^O)\n"; + print "1..0 # Skip: no sparse files in $^0, unable to test large files\n"; bye(); } diff --git a/t/op/lfs.t b/t/op/lfs.t index feee8cc..e55212f 100644 --- a/t/op/lfs.t +++ b/t/op/lfs.t @@ -45,15 +45,15 @@ EOM print "# checking whether we have sparse files...\n"; # Known have-nots. -if ($^O eq 'win32' || $^O eq 'vms') { - print "1..0 # Skip: no sparse files (because this is $^O) \n"; +if ($^O eq 'MSWin32' || $^O eq 'VMS') { + print "1..0 # Skip: no sparse files in $^O\n"; bye(); } # Known haves that have problems running this test # (for example because they do not support sparse files, like UNICOS) if ($^O eq 'unicos') { - print "1..0 # Skip: large files known to work but unable to test them here ($^O)\n"; + print "1..0 # Skip: no sparse files in $^0, unable to test large files\n"; bye(); }