equal
deleted
inserted
replaced
228 |
228 |
229 # checking the checksum |
229 # checking the checksum |
230 Imager::get_block($file => \my $buffer); |
230 Imager::get_block($file => \my $buffer); |
231 |
231 |
232 if (md5_hex($buffer) ne basename($file, qw(.gz .x .gz.x))) { |
232 if (md5_hex($buffer) ne basename($file, qw(.gz .x .gz.x))) { |
233 say "wrong checksum for $file\n"; |
233 say "wrong checksum for $file $k @$i\n"; |
234 @invalid{@$i} = (); |
234 @invalid{@$i} = (); |
235 next; |
235 next; |
236 } |
236 } |
237 |
237 |
238 $checked{$file} = 1; |
238 $checked{$file} = 1; |