# HG changeset patch
# User Heiko Schlittermann (DTELE) <hs@schlittermann.de>
# Date 1313498685 -7200
# Node ID 42a046de4ceab2b14a6f6a4de2aa01828062ef65
# Parent  e6b2c98df64adaa2736c56752eadb25ab3e7f20e
check for uncompression problems

diff -r e6b2c98df64a -r 42a046de4cea bin/imager.compress
--- a/bin/imager.compress	Tue Aug 16 14:17:50 2011 +0200
+++ b/bin/imager.compress	Tue Aug 16 14:44:45 2011 +0200
@@ -35,6 +35,10 @@
 	gunzip(\$zbuffer => \$buffer)
 	    or die $GunzipError;
 
+	if (!length($buffer)) {
+		warn "?? zero length after decompression: $_\n";
+		return;
+	}
 	return if length($zbuffer)/length($buffer) < THRESHOLD;
 
 	$tmp = File::Temp->new(DIR => ".", TEMPLATE => ".tmp-XXXXXX");