# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1311669003 -7200
# Node ID 0e5a8a5f46741e10d6bf60a8d1b758401c11b10c
# Parent  867424a1db61c1f4c7e400f7b2418e80781d4ac0
do not purge currently written image blocks

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