diff options
Diffstat (limited to 'checkem')
-rwxr-xr-x | checkem | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -25,7 +25,7 @@ use File::Find; use Digest; # Version number to make Perl::Critic happy -our $VERSION = 2.13; +our $VERSION = 2.14; # Complain if there are no arguments if ( !@ARGV ) { @@ -110,8 +110,7 @@ SIZE: for my $fs ( grep { @{$_} > 1 } values %sizes ) { if ( open my $fh, '<', $f->{name} ) { binmode $fh; $dig->addfile($fh); - $f->{hexdigest} = $dig->hexdigest(); - push @{ $sums{ $f->{hexdigest} } }, $f; + push @{ $sums{ $f->{hexdigest} = $dig->hexdigest() } }, $f; close $fh or carp 'Failed to close file'; } |