Move assignment inlinev2.14

1 files changed, 2 insertions, 3 deletions

diff --git a/checkem b/checkem
index fbc383f..cd3d0d6 100755
--- a/checkem
+++ b/checkem
@@ -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';
         }