10 |
use PerlIO::gzip; |
use PerlIO::gzip; |
11 |
use File::Path; |
use File::Path; |
12 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
13 |
use Carp qw/confess/; |
use Carp qw/confess cluck/; |
14 |
use IO::File; |
use IO::File; |
15 |
use Getopt::Long; |
use Getopt::Long; |
16 |
|
|
47 |
sub real_name { |
sub real_name { |
48 |
my ( $dir, $name ) = @_; |
my ( $dir, $name ) = @_; |
49 |
if ( -e "$dir/${name}.gz" ) { |
if ( -e "$dir/${name}.gz" ) { |
50 |
confess "ASSERT: unexpected $dir/$name exists" if -e "$dir/$name"; |
cluck "ASSERT: unexpected $dir/$name exists" if -e "$dir/$name"; |
51 |
return "${name}.gz"; |
return "${name}.gz"; |
52 |
} |
} |
53 |
if ( $name =~ m/\.gz$/ ) { |
if ( $name =~ m/\.gz$/ ) { |