do not purge currently written image blocks
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Tue, 26 Jul 2011 10:30:03 +0200
changeset 17 0e5a8a5f4674
parent 16 867424a1db61
child 18 4a01ae9db5c4
do not purge currently written image blocks
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