# HG changeset patch
# User Heiko Schlittermann (DTELE) <hs@schlittermann.de>
# Date 1311848265 -7200
# Node ID c64604030f4c438c1bc02c4e5987f2684f9b7daf
# Parent  fa052441e5c20091536c171c94bdd3e09a101333
fixed ext if no compression was selected

diff -r fa052441e5c2 -r c64604030f4c bin/imager
--- a/bin/imager	Thu Jul 28 12:15:16 2011 +0200
+++ b/bin/imager	Thu Jul 28 12:17:45 2011 +0200
@@ -116,10 +116,10 @@
     $SIG{ALRM}->();
 
     while (my $buffer = <$in>) {
-        my ($file, $ext, $cs);
-        $file = $cs = md5_hex($buffer);
-        $file =~ s/(?<fn>(?<prefix>...).*)/$+{prefix}\/$+{fn}/g;
-        $ext = ".gz" if $o{compress};
+	my ($file, $ext, $cs);
+	$file = $cs = md5_hex($buffer);
+	$file =~ s/(?<fn>(?<prefix>...).*)/$+{prefix}\/$+{fn}/g;
+	$ext = $o{compress} ? ".gz" : "";
 
         # the extension we do not put into the index
         my $log = sprintf "%12d %s %s" => ($. - 1), $cs, $file;