# HG changeset patch # User Heiko Schlittermann (DTELE) # 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);