Update Compress Modules to version 2.002

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

diff --git a/ext/Compress/Zlib/examples/gzcat b/ext/Compress/Zlib/examples/gzcat
index 6c595b8..5241a5a 100755 (executable)
--- a/ext/Compress/Zlib/examples/gzcat
+++ b/ext/Compress/Zlib/examples/gzcat
@@ -1,7 +1,7 @@
 #!/usr/local/bin/perl
 
 use strict ;
-local ($^W) = 1; #use warnings ;
+use warnings ;
 
 use Compress::Zlib ;
 
@@ -15,11 +15,8 @@ my $filename ;
 foreach my $filename (@ARGV) {
     my $buffer ;
 
-    my $file = $filename ;
-    $file = \*STDIN if $file eq '-' ;
-
-    my $gz = gzopen($file, "rb") 
-         or die "Cannot open $file: $gzerrno\n" ;
+    my $gz = gzopen($filename, "rb") 
+         or die "Cannot open $filename: $gzerrno\n" ;
 
     print $buffer while $gz->gzread($buffer) > 0 ;