1 package Filter::Decompress ;
3 use Filter::Util::Call ;
10 my $VERSION = '1.01' ;
16 # Initialise an inflation stream.
18 or croak "Internal Error" ;
24 if (($status = filter_read()) >0) {
25 ($_, $err) = $x->inflate($_) ;
26 return -1 unless $err == Z_OK or $err == Z_STREAM_END ;