Upgrade to Compress::Zlib 2.000_05

[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / examples / filtinf

diff --git a/ext/Compress/Zlib/examples/filtinf b/ext/Compress/Zlib/examples/filtinf
index 1df202b..bbac2c2 100755 (executable)
--- a/ext/Compress/Zlib/examples/filtinf
+++ b/ext/Compress/Zlib/examples/filtinf
@@ -1,21 +1,23 @@
 #!/usr/local/bin/perl
 
+use Compress::Zlib 2 ;
+
 use strict ;
 use warnings ;
 
-use Compress::Zlib ;
+binmode STDIN;
+binmode STDOUT;
 
-my $x = inflateInit()
+my $x = new Compress::Zlib::Inflate
    or die "Cannot create a inflation stream\n" ;
 
 my $input = '' ;
-binmode STDIN;
-binmode STDOUT;
+my $output = '' ;
+my $status ;
 
-my ($output, $status) ;
 while (read(STDIN, $input, 4096))
 {
-    ($output, $status) = $x->inflate(\$input) ;
+    $status = $x->inflate($input, $output) ;
 
     print $output 
         if $status == Z_OK or $status == Z_STREAM_END ;