diff options
-rwxr-xr-x | checkem | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -110,7 +110,8 @@ SIZE: for my $fs ( grep { @{$_} > 1 } values %sizes ) { if ( open my $fh, '<', $f->{name} ) { binmode $fh; $dig->addfile($fh); - push @{ $sums{ $dig->digest() } }, $f; + $f->{hexdigest} = $dig->hexdigest(); + push @{ $sums{ $f->{hexdigest} } }, $f; close $fh or carp 'Failed to close file'; } |