2.024

[p5sagit/p5-mst-13.2.git] / cpan / Compress-Raw-Zlib / t / 02zlib.t

diff --git a/cpan/Compress-Raw-Zlib/t/02zlib.t b/cpan/Compress-Raw-Zlib/t/02zlib.t
index 7d37924..f0548c9 100644 (file)
--- a/cpan/Compress-Raw-Zlib/t/02zlib.t
+++ b/cpan/Compress-Raw-Zlib/t/02zlib.t
@@ -27,10 +27,10 @@ BEGIN
         $count = 230 ;
     }
     elsif ($] >= 5.006) {
-        $count = 284 ;
+        $count = 300 ;
     }
     else {
-        $count = 242 ;
+        $count = 258 ;
     }
 
     plan tests => $count + $extra;
@@ -603,7 +603,7 @@ for my $consume ( 0 .. 1)
 
 foreach (1 .. 2)
 {
-    next if $[ < 5.005 ;
+    next if $] < 5.005 ;
 
     title 'test inflate/deflate with a substr';