diff options
author | Eric Wong <e@80x24.org> | 2021-10-02 11:18:33 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-10-02 20:09:31 +0000 |
commit | 64f6a4c97b05a709de60aea9c3a5f51d7a37f226 (patch) | |
tree | b0be5f5383b06540f2f48a98db9c8ab4931423c3 /lib/PublicInbox/ContentHash.pm | |
parent | 3e096b699243ea7bd9d12fec8f3048104e462802 (diff) | |
download | public-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.pm | 6 |
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 |