# HG changeset patch
# User Heiko Schlittermann (DTELE) <hs@schlittermann.de>
# Date 1313566439 -7200
# Node ID c12fa4d329038831dcfb68fe518bb15adcbd15e6
# Parent  25d318915ae9c5af4f1485af412728595ade9422
better check before compression

diff -r 25d318915ae9 -r c12fa4d32903 bin/imager.compress
--- 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);