1 files changed, 0 insertions, 40 deletions
diff --git a/ext/Compress/IO/Zlib/examples/gzgrep b/ext/Compress/IO/Zlib/examples/gzgrep
deleted file mode 100755
index 33820ba064..0000000000
--- a/ext/Compress/IO/Zlib/examples/gzgrep
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/usr/bin/perl
-
-use strict ;
-use warnings ;
-use IO::Uncompress::Gunzip qw($GunzipError);
-
-die "Usage: gzgrep pattern [file...]\n"
-    unless @ARGV >= 1;
-
-my $pattern = shift ;
-my $file ;
-
-@ARGV = '-' unless @ARGV ;
-
-foreach $file (@ARGV) {
-    my $gz = new IO::Uncompress::Gunzip $file 
-         or die "Cannot uncompress $file: $GunzipError\n" ;
-
-     while (<$gz>) {
-        print if /$pattern/ ;
-     }
-
-     die "Error reading from $file: $GunzipError\n" 
-        if $GunzipError ;
-}
-
-__END__
-foreach $file (@ARGV) {
-    my $gz = gzopen($file, "rb") 
-         or die "Cannot open $file: $gzerrno\n" ;
-
-    while ($gz->gzreadline($_) > 0) {
-        print if /$pattern/ ;
-    }
-
-    die "Error reading from $file: $gzerrno\n" 
-        if $gzerrno != Z_STREAM_END ;
-    
-    $gz->gzclose() ;
-}