diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-21 16:32:36 +1200 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-21 16:33:19 +1200 |
commit | 35bc8ca465bb2b4c2e2c31f7bd76d5bf8e7e1841 (patch) | |
tree | 94583e63d693001a056fc0fc85410f2ece3a4a4f | |
parent | Bump version number (diff) | |
download | checkem-35bc8ca465bb2b4c2e2c31f7bd76d5bf8e7e1841.tar.gz (sig) checkem-35bc8ca465bb2b4c2e2c31f7bd76d5bf8e7e1841.zip |
Move assignment inlinev2.14
-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'; } |