diff -r 867424a1db61 -r 0e5a8a5f4674 checker --- a/checker Mon Jul 25 22:03:42 2011 +0200 +++ b/checker Tue Jul 26 10:30:03 2011 +0200 @@ -67,8 +67,7 @@ my $dir = shift; my %block; find(sub { - (-f) and (-M > 0) or return; - #verbose("idx: $File::Find::name"); + (-f) or return; # we need to include the tmp files! push @{$block{""}}, abs_path $_; foreach my $f (get_file_list($_)) { push @{$block{$f}} => $#{$block{""}}; @@ -109,7 +108,7 @@ my @unused; find(sub { $done++ if -f; - (-f _) and ((-M _) > 0) or return; + (-f _) and ((-M _) > 0) or return; # don't process the fresh blocks # we don't need uncompressed files if an compressed version # exists