Add ARM files

[dh-make-perl] / dev / arm / libio-compress-zlib-perl / libio-compress-zlib-perl-2.012 / debian / libio-compress-zlib-perl / usr / share / doc / libio-compress-zlib-perl / examples / anycat

diff --git a/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/debian/libio-compress-zlib-perl/usr/share/doc/libio-compress-zlib-perl/examples/anycat b/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/debian/libio-compress-zlib-perl/usr/share/doc/libio-compress-zlib-perl/examples/anycat
new file mode 100755 (executable)
index 0000000..9db9c41
--- /dev/null
+++ b/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/debian/libio-compress-zlib-perl/usr/share/doc/libio-compress-zlib-perl/examples/anycat
@@ -0,0 +1,17 @@
+#!/usr/local/bin/perl
+
+use strict ;
+use warnings ;
+
+use IO::Uncompress::AnyInflate qw( anyinflate $AnyInflateError );
+
+@ARGV = '-' unless @ARGV ;
+
+foreach my $file (@ARGV) {
+
+    anyinflate $file       => '-',
+               Transparent => 1,
+               Strict      => 0,
+         or die "Cannot uncompress '$file': $AnyInflateError\n" ;
+
+}