--- 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