This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip nit in t/op/lfs.t
authorSteve Peters <steve@fisharerojo.org>
Mon, 4 Jul 2005 10:10:13 +0000 (05:10 -0500)
committerSteve Hay <SteveHay@planit.com>
Mon, 4 Jul 2005 14:53:54 +0000 (14:53 +0000)
Message-ID: <20050704151013.GA18468@mccoy.peters.homeunix.org>

p4raw-id: //depot/perl@25071

t/op/lfs.t

index f463b1b..8f022b8 100644 (file)
@@ -67,7 +67,7 @@ if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
 # Known haves that have problems running this test
 # (for example because they do not support sparse files, like UNICOS)
 if ($^O eq 'unicos') {
 # 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: no sparse files in $^0, unable to test large files\n";
+    print "1..0 # Skip: no sparse files in $^O, unable to test large files\n";
     bye();
 }
 
     bye();
 }