Compression Modules Update for EBCDIC

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

diff --git a/t/lib/compress/tied.pl b/t/lib/compress/tied.pl
index 7833b9a..80d42b7 100644 (file)
--- a/t/lib/compress/tied.pl
+++ b/t/lib/compress/tied.pl
@@ -150,7 +150,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 }