From 35bc8ca465bb2b4c2e2c31f7bd76d5bf8e7e1841 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Mon, 21 Aug 2017 16:32:36 +1200
Subject: Move assignment inline

---
 checkem | 5 ++---
 1 file 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';
         }
-- 
cgit v1.2.3