Compress::Zlib

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

diff --git a/ext/Compress/Zlib/examples/filtdef b/ext/Compress/Zlib/examples/filtdef
index 71e54da..57dfeb9 100755 (executable)
--- a/ext/Compress/Zlib/examples/filtdef
+++ b/ext/Compress/Zlib/examples/filtdef
@@ -1,27 +1,29 @@
 #!/usr/local/bin/perl
 
-use Compress::Zlib 2 ;
-
 use strict ;
 use warnings ;
 
+use Compress::Zlib ;
+
 binmode STDIN;
 binmode STDOUT;
-
-my $x = new Compress::Zlib::Deflate()
+my $x = deflateInit()
    or die "Cannot create a deflation stream\n" ;
 
-my $output = '' ;
-
+my ($output, $status) ;
 while (<>)
 {
-    $x->deflate($_, $output) == Z_OK 
-        or die "deflate failed\n" ;
+    ($output, $status) = $x->deflate($_) ;
+
+    $status == Z_OK
+        or die "deflation failed\n" ;
 
     print $output ;
 }
 
-$x->flush($output) == Z_OK
-    or die "flush failed\n" ;
+($output, $status) = $x->flush() ;
+
+$status == Z_OK
+    or die "deflation failed\n" ;
 
 print $output ;