--- a/bin/imager.compress	Tue Aug 16 16:54:05 2011 +0200
+++ b/bin/imager.compress	Wed Aug 17 09:33:59 2011 +0200
@@ -35,7 +35,7 @@
     find(
         sub {
             say "dir $_" and return if -d;
-            return if not -f;
+            return if not (-f and /^[\da-f]{32}(?:\.x\.gz|\.gz)?$/);
 
             open(my $fh, $_);
             my ($buffer, $zbuffer);