about summary refs log tree commit homepage
path: root/lib/PublicInbox/ContentHash.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-10-02 11:18:33 +0000
committerEric Wong <e@80x24.org>2021-10-02 20:09:31 +0000
commit64f6a4c97b05a709de60aea9c3a5f51d7a37f226 (patch)
treeb0be5f5383b06540f2f48a98db9c8ab4931423c3 /lib/PublicInbox/ContentHash.pm
parent3e096b699243ea7bd9d12fec8f3048104e462802 (diff)
downloadpublic-inbox-64f6a4c97b05a709de60aea9c3a5f51d7a37f226.tar.gz
This is useful in finding the cause of deduplication bugs,
and possibly the cause of missing threads reported by
Konstantin in <20211001130527.z7eivotlgqbgetzz@meerkat.local>

usage:

  u=https://yhbt.net/lore/all/87czop5j33.fsf@tynnyri.adurom.net/raw
  lei mail-diff $u
Diffstat (limited to 'lib/PublicInbox/ContentHash.pm')
-rw-r--r--lib/PublicInbox/ContentHash.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/PublicInbox/ContentHash.pm b/lib/PublicInbox/ContentHash.pm
index cc4a54c9..f6ae9011 100644
--- a/lib/PublicInbox/ContentHash.pm
+++ b/lib/PublicInbox/ContentHash.pm
@@ -52,9 +52,9 @@ sub content_dig_i {
         $dig->add($s);
 }
 
-sub content_digest ($) {
-        my ($eml) = @_;
-        my $dig = Digest::SHA->new(256);
+sub content_digest ($;$) {
+        my ($eml, $dig) = @_;
+        $dig //= Digest::SHA->new(256);
 
         # References: and In-Reply-To: get used interchangeably
         # in some "duplicates" in LKML.  We treat them the same