Add ARM files

[dh-make-perl] / dev / arm / libcompress-raw-zlib-perl / libcompress-raw-zlib-perl-2.012 / debian / libcompress-raw-zlib-perl / usr / share / doc / libcompress-raw-zlib-perl / examples / filtinf

diff --git a/dev/arm/libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/libcompress-raw-zlib-perl/usr/share/doc/libcompress-raw-zlib-perl/examples/filtinf b/dev/arm/libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/libcompress-raw-zlib-perl/usr/share/doc/libcompress-raw-zlib-perl/examples/filtinf
new file mode 100755 (executable)
index 0000000..1a99e88
--- /dev/null
+++ b/dev/arm/libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/libcompress-raw-zlib-perl/usr/share/doc/libcompress-raw-zlib-perl/examples/filtinf
@@ -0,0 +1,30 @@
+#!/usr/local/bin/perl
+
+use Compress::Raw::Zlib ;
+
+use strict ;
+use warnings ;
+
+binmode STDIN;
+binmode STDOUT;
+
+my $x = new Compress::Raw::Zlib::Inflate
+   or die "Cannot create a inflation stream\n" ;
+
+my $input = '' ;
+my $output = '' ;
+my $status ;
+
+while (read(STDIN, $input, 4096))
+{
+    $status = $x->inflate($input, $output) ;
+
+    print $output 
+        if $status == Z_OK or $status == Z_STREAM_END ;
+
+    last if $status != Z_OK ;
+}
+
+die "inflation failed\n"
+    unless $status == Z_STREAM_END ;
+