X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fsyslfs.t;h=39a57f36ac4069741c49ed6d8abcef048c2a4a88;hb=86e48eb5919e74f9dfc880af54f85fde9c591234;hp=bc3839594f79a7eca19e372ce928ced53e92c5cb;hpb=607df283d68e14cbc418e3453255082dc72ca8bb;p=p5sagit%2Fp5-mst-13.2.git

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();
 }