diff -r 0315e75a049d -r a8495233e04c bin/imager.save --- a/bin/imager.save Wed Aug 17 12:10:51 2011 +0200 +++ b/bin/imager.save Wed Aug 17 16:16:23 2011 +0200 @@ -14,6 +14,7 @@ use Hash::Util qw(lock_keys); use Getopt::Long; use Pod::Usage; +use Imager 0.1; use constant KiB => 1024; use constant MiB => 1024 * KiB; @@ -154,14 +155,7 @@ push @{ $index{BLOCKS} }, sprintf "%12d %s %s" => ($. - 1), $cs, $file; - if ( - not( -e "$data/$file" - or -e "$data/$file.gz" - or -e "$data/$file.x" - or -e "$data/$file.gz.x" - or -e "$data/$file.x.gz") - ) - { + if (not Imager::get_file("$data/$file")) { mkpath dirname("$data/$file"); my $out = File::Temp->new( TEMPLATE => "tmp-XXXXXXX",