Merge branch 'develop' of https://github.com/DFHack/dfhack into develop
commit
84ea03f68c
@ -0,0 +1,21 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
|
||||||
|
|
||||||
|
my %args = map { $_ => 1 } @ARGV;
|
||||||
|
|
||||||
|
my $in_file = $ARGV[0] or die "no input file";
|
||||||
|
# remove extension
|
||||||
|
(my $out_file = $in_file) =~ s{\.[^.]+$}{};
|
||||||
|
|
||||||
|
if (! -f $in_file) {
|
||||||
|
die "input file does not exist: \"$in_file\"\n";
|
||||||
|
}
|
||||||
|
if (-f $out_file and !exists($args{'--force'})) {
|
||||||
|
die "output file exists, not overwriting: \"$out_file\"";
|
||||||
|
}
|
||||||
|
|
||||||
|
gunzip $in_file => $out_file or die "gunzip failed: $GunzipError\n";
|
@ -1 +1 @@
|
|||||||
Subproject commit 352dc4ac8a169bf4789448f01d5121c740669400
|
Subproject commit de996207994e4ce3e221c010c9cc042b06620a2e
|
Loading…
Reference in New Issue