diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-10 23:03:41 +1200 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-10 23:03:41 +1200 |
commit | aef2ca8d5b8eb65f6d8df758270b64ac6517dba9 (patch) | |
tree | 26143ef32075ec6f7645cea0b3d1a4af4a9363f7 | |
parent | More README tweaks (diff) | |
download | checkem-aef2ca8d5b8eb65f6d8df758270b64ac6517dba9.tar.gz checkem-aef2ca8d5b8eb65f6d8df758270b64ac6517dba9.zip |
Close file after digest, not before
Seems to work anyway, but this seems cleaner
-rwxr-xr-x | checkem | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -112,9 +112,9 @@ for my $fs ( grep { @{$_} > 1 } values %sizes ) { or croak 'Failed to open file'; binmode $fh; $dig->addfile($fh); + push @{ $sums{ $dig->digest() } }, $f; close $fh or croak 'Failed to close file'; - push @{ $sums{ $dig->digest() } }, $f; } } |