131             (-f _) and ((-M _) > 0) or return;  # don't process the fresh blocks

   131             (-f _) and ((-M _) > 0) or return;  # don't process the fresh blocks

   132 

   132 

   133             # we don't need uncompressed files if an compressed version

   133             # we don't need uncompressed files if an compressed version

   134             # exists

   134             # exists

   135             unlink $_ and return if -f "$_.gz";

   135             unlink $_ and return if -f "$_.gz";

   136 

   139 

   137             # cut away the first part of the filename and

   140             # cut away the first part of the filename and

   138             # some optional extension

   141             # some optional extension

   139             (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/;

   142             (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/;

   140             exists $block{$rn} and return;

   143             exists $block{$rn} and return;

   199         next if $k eq "";

   202         next if $k eq "";

   200         ++$done;

   203         ++$done;

   201 

   204 

   202         next

   205         next

   203           if -f "$dir/data/$k"

   206           if -f "$dir/data/$k"

   205         say "missing $k @$i";

   211         say "missing $k @$i";

   206         @invalid{@$i} = ();

   212         @invalid{@$i} = ();

   207     }

   213     }

   208     $SIG{ALRM}->();

   214     $SIG{ALRM}->();

   209     alarm 0;

   215     alarm 0;