Inline digest assignmentv2.3

1 files changed, 2 insertions, 3 deletions

diff --git a/checkem b/checkem
index 51c56df..ef77e1c 100755
--- a/checkem
+++ b/checkem
@@ -24,7 +24,7 @@ use Digest::SHA;
 use 5.009003;
 
 # Version number to make Perl::Critic happy
-our $VERSION = 2.2;
+our $VERSION = 2.3;
 
 # If no arguments, work with the current working directory
 croak('Need at least one dir to search') if !@ARGV;
@@ -83,8 +83,7 @@ FS: for my $fs ( grep { @{$_} > 1 } values %sizes ) {
 
         # Files still the same size and not hard linked, group by digest;
         # create the digest object if it isn't already defined
-        $dig //= Digest::SHA->new($alg);
-        $dig->addfile( $f->{fn} );
+        ( $dig //= Digest::SHA->new($alg) )->addfile( $f->{fn} );
         push @{ $sums{ $dig->digest() } }, $f;
     }
 }