author | Heiko Schlittermann (JUMPER) <hs@schlittermann.de> |
Tue, 06 Sep 2011 15:08:29 +0200 | |
changeset 85 | 9afa91bee25b |
parent 81 | f8fc94c18ebd |
child 88 | 00a538dd7908 |
bin/imager.check | file | annotate | diff | comparison | revisions |
--- 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; }