nicer output
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Tue, 06 Sep 2011 15:08:29 +0200
changeset 85 9afa91bee25b
parent 81 f8fc94c18ebd
child 88 00a538dd7908
nicer output
bin/imager.check
--- a/bin/imager.check	Tue Aug 23 11:18:20 2011 +0200
+++ b/bin/imager.check	Tue Sep 06 15:08:29 2011 +0200
@@ -230,7 +230,7 @@
 	Imager::get_block($file => \my $buffer);
 
 	if (md5_hex($buffer) ne basename($file, qw(.gz .x .gz.x))) {
-	    say "wrong checksum for $file\n";
+	    say "wrong checksum for $file $k @$i\n";
 	    @invalid{@$i} = ();
 	    next;
 	}