compress 2.021

[p5sagit/p5-mst-13.2.git] / ext / IO-Compress / t / 006zip.t

diff --git a/ext/IO-Compress/t/006zip.t b/ext/IO-Compress/t/006zip.t
index fdb28ee..2dfa52c 100644 (file)
--- a/ext/IO-Compress/t/006zip.t
+++ b/ext/IO-Compress/t/006zip.t
@@ -48,12 +48,11 @@ sub getContent
 
     for ($status = 1; ! $u->eof(); $status = $u->nextStream())
     {
- 
         my $name = $u->getHeaderInfo()->{Name};
         #warn "Processing member $name\n" ;
 
         my $buff = '';
-        1 while ($status = $u->read($buff)) > 0;
+        1 while ($status = $u->read($buff)) ;
 
         push @content, $buff;
         last unless $status == 0;