Commit | Line | Data |
---|---|---|
319fab50 | 1 | #!/usr/local/bin/perl |
2 | ||
3 | use strict ; | |
4 | use warnings ; | |
5 | ||
6 | use IO::Uncompress::AnyInflate qw( anyinflate $AnyInflateError ); | |
7 | ||
8 | @ARGV = '-' unless @ARGV ; | |
9 | ||
10 | foreach my $file (@ARGV) { | |
11 | ||
12 | anyinflate $file => '-', | |
13 | Transparent => 1, | |
14 | Strict => 0, | |
15 | or die "Cannot uncompress '$file': $AnyInflateError\n" ; | |
16 | ||
17 | } |