Compression Modules Update for EBCDIC

[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 e310196..41861e9 100644 (file)
--- a/t/lib/compress/newtied.pl
+++ b/t/lib/compress/newtied.pl
@@ -4,7 +4,7 @@ use warnings;
 use bytes;
 
 use Test::More ;
-use ZlibTestUtils;
+use CompTestUtils;
 
 our ($BadPerl, $UncompressClass);
  
@@ -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 }