Compress* 2.006

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

diff --git a/t/lib/compress/newtied.pl b/t/lib/compress/newtied.pl
index 395039b..41861e9 100644 (file)
--- a/t/lib/compress/newtied.pl
+++ b/t/lib/compress/newtied.pl
@@ -103,7 +103,7 @@ sub run
             my $foo = "1234567890";
             
             ok syswrite($io, $foo, length($foo)) == length($foo) ;
-            if ( $[ < 5.6 )
+            if ( $] < 5.6 )
               { is $io->syswrite($foo, length $foo), length $foo }
             else
               { is $io->syswrite($foo), length $foo }