Compress::Zlib

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

diff --git a/ext/Compress/Zlib/examples/gzstream b/ext/Compress/Zlib/examples/gzstream
index 9d03bc5..cb03a2c 100755 (executable)
--- a/ext/Compress/Zlib/examples/gzstream
+++ b/ext/Compress/Zlib/examples/gzstream
@@ -2,23 +2,17 @@
 
 use strict ;
 use warnings ;
-use IO::Compress::Gzip qw(gzip $GzipError);
 
-gzip '-' => '-', Minimal => 1
-  or die "gzstream: $GzipError\n" ;
+use Compress::Zlib ;
 
-#exit 0;
+binmode STDOUT;        # gzopen only sets it on the fd
 
-__END__
-
-#my $gz = new IO::Compress::Gzip *STDOUT 
-my $gz = new IO::Compress::Gzip '-'
-         or die "gzstream: Cannot open stdout as gzip stream: $GzipError\n" ;
+my $gz = gzopen(\*STDOUT, "wb")
+         or die "Cannot open stdout: $gzerrno\n" ;
 
 while (<>) {
-    $gz->write($_) 
-       or die "gzstream: Error writing gzip output stream: $GzipError\n" ;
+    $gz->gzwrite($_) 
+       or die "error writing: $gzerrno\n" ;
 }
 
-$gz->close
-    or die "gzstream: Error closing gzip output stream: $GzipError\n" ;
+$gz->gzclose ;