Compress* 2.006

[p5sagit/p5-mst-13.2.git] / t / lib / compress / generic.pl

diff --git a/t/lib/compress/generic.pl b/t/lib/compress/generic.pl
index 79e62c3..51b45fc 100644 (file)
--- a/t/lib/compress/generic.pl
+++ b/t/lib/compress/generic.pl
@@ -612,7 +612,7 @@ EOM
             my $foo = "1234567890";
             
             is $io->syswrite($foo, length($foo)), length($foo), "  syswrite ok" ;
-            if ( $[ < 5.6 )
+            if ( $] < 5.6 )
               { is $io->syswrite($foo, length $foo), length $foo, "  syswrite ok" }
             else
               { is $io->syswrite($foo), length $foo, "  syswrite ok" }