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

--- a/t/001-save-restore.t	Wed Aug 17 17:01:24 2011 +0200
+++ b/t/001-save-restore.t	Wed Aug 17 17:21:04 2011 +0200
@@ -9,6 +9,7 @@
 
 use File::Temp;
 
+my $err = File::Temp->new;
 my $dir = File::Temp->newdir;
 
 open(my $out, "+>$dir/source");
@@ -28,9 +29,9 @@
 ok(<$out> ~~ <$restored>, "source === restored");
 
 # now compress and check again
-system("perl -Mblib blib/script/imager.compress $dir/images");
+system("perl -Mblib blib/script/imager.compress $dir/images 2>$err");
 system("perl -Mblib blib/script/imager.restore $dir/images/idx/@{[hostname]}/source/* $dir/source.restored");
-is($? => 0, "restored");
+is($? => 0, "restored") or do { seek $err => 0, 0; diag <$err> };
 seek($out, 0, 0);
 open($restored, "$dir/source.restored");
 ok(<$out> ~~ <$restored>, "compressed source === restored");