--- a/bin/imager.compress	Wed Aug 17 17:01:24 2011 +0200
+++ b/bin/imager.compress	Wed Aug 17 17:21:04 2011 +0200
@@ -36,6 +36,7 @@
         sub {
             say "dir $File::Find::name" and return if -d;
             return if not (-f and /^[\da-f]{32}(?:\.x\.gz|\.gz)?$/);
+	    #print STDERR ".";
 
             open(my $fh, $_);
             my ($buffer, $zbuffer);
@@ -56,6 +57,7 @@
                 print {$tmp} $buffer;
                 rename $tmp->filename => basename($_, ".gz");
                 say "uncompressed $_";
+                #print "+";
 
             }
             else {
@@ -72,6 +74,7 @@
                 print {$tmp} $zbuffer;
                 rename $tmp->filename => "$_.gz";
                 say "  compressed $_";
+		#print STDERR "-";
             }
 
             close $tmp;