digest: Fix incorrect statistics when hashes fail

[dupemerge] / faster-dupemerge

diff --git a/faster-dupemerge b/faster-dupemerge
index a007540b3ace88bd5ba7009b3b4c7d6e66d163c3..b7554dee59e78b32f89b88772db070ea58e2321f 100755 (executable)
--- a/faster-dupemerge
+++ b/faster-dupemerge
@@ -90,9 +90,10 @@ sub digest {
        if ($skip_hashes) {
                return "SKIPPING HASHES";
        } else {
-               &really_digest($filename);
+               my $digest = &really_digest($filename);
                $hash_bytes += -s $filename;
                $hash_files++;
+               return $digest
        }
 }