Merge branch 'blead' into smartmatch

Conflicts:
	t/op/switch.t

4 files changed, 117 insertions, 0 deletions

diff --git a/ext/IO-Compress/examples/io/gzip/gzappend b/ext/IO-Compress/examples/io/gzip/gzappend
new file mode 100644
index 0000000000..a4a60a9aad
--- /dev/null
+++ b/ext/IO-Compress/examples/io/gzip/gzappend
@@ -0,0 +1,24 @@
+#!/usr/local/bin/perl
+
+use IO::Compress::Gzip qw( $GzipError );
+use strict ;
+use warnings ;
+
+die "Usage: gzappend gz-file file...\n"
+    unless @ARGV ;
+
+
+my $output = shift @ARGV ;
+
+@ARGV = '-' unless @ARGV ;
+
+my $gz = new IO::Compress::Gzip $output, Merge => 1
+     or die "Cannot open $output: $GzipError\n" ;
+
+$gz->write( [@ARGV] )
+     or die "Cannot open $output: $GzipError\n" ;
+
+$gz->close;
+
+    
+
diff --git a/ext/IO-Compress/examples/io/gzip/gzcat b/ext/IO-Compress/examples/io/gzip/gzcat
new file mode 100755
index 0000000000..5572bae959
--- /dev/null
+++ b/ext/IO-Compress/examples/io/gzip/gzcat
@@ -0,0 +1,29 @@
+#!/usr/local/bin/perl
+
+use IO::Uncompress::Gunzip qw( $GunzipError );
+use strict ;
+use warnings ;
+
+#die "Usage: gzcat file...\n"
+#    unless @ARGV ;
+
+my $file ;
+my $buffer ;
+my $s;
+
+@ARGV = '-' unless @ARGV ;
+
+foreach $file (@ARGV) {
+    
+    my $gz = new IO::Uncompress::Gunzip $file
+         or die "Cannot open $file: $GunzipError\n" ;
+
+    print $buffer
+        while ($s = $gz->read($buffer)) > 0 ;
+
+    die "Error reading from $file: $GunzipError\n" 
+        if $s < 0 ;
+    
+    $gz->close() ;
+}
+
diff --git a/ext/IO-Compress/examples/io/gzip/gzgrep b/ext/IO-Compress/examples/io/gzip/gzgrep
new file mode 100755
index 0000000000..33820ba064
--- /dev/null
+++ b/ext/IO-Compress/examples/io/gzip/gzgrep
@@ -0,0 +1,40 @@
+#!/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() ;
+}
diff --git a/ext/IO-Compress/examples/io/gzip/gzstream b/ext/IO-Compress/examples/io/gzip/gzstream
new file mode 100755
index 0000000000..9d03bc5749
--- /dev/null
+++ b/ext/IO-Compress/examples/io/gzip/gzstream
@@ -0,0 +1,24 @@
+#!/usr/local/bin/perl
+
+use strict ;
+use warnings ;
+use IO::Compress::Gzip qw(gzip $GzipError);
+
+gzip '-' => '-', Minimal => 1
+  or die "gzstream: $GzipError\n" ;
+
+#exit 0;
+
+__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" ;
+
+while (<>) {
+    $gz->write($_) 
+	or die "gzstream: Error writing gzip output stream: $GzipError\n" ;
+}
+
+$gz->close
+    or die "gzstream: Error closing gzip output stream: $GzipError\n" ;