checker
changeset 17 0e5a8a5f4674
parent 14 73b95264a70c
--- 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