9 or die "Cannot create a inflation stream\n" ;
15 my ($output, $status) ;
16 while (read(STDIN, $input, 4096))
18 ($output, $status) = $x->inflate(\$input) ;
21 if $status == Z_OK or $status == Z_STREAM_END ;
23 last if $status != Z_OK ;
26 die "inflation failed\n"
27 unless $status == Z_STREAM_END ;