From: Eric Wong <e@80x24.org>
Date: Fri, 28 Apr 2023 09:43:27 +0000 (+0000)
Subject: content_digest_dbg: handle empty inputs
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0f3b7b6058cc4b667e6fbd967d882ad8c47de288;p=thirdparty%2Fpublic-inbox.git

content_digest_dbg: handle empty inputs

It's possible that we hit messages or attachments with empty
bodies, so avoid doing a regexp match on an uninitialized variable.
---

diff --git a/lib/PublicInbox/ContentDigestDbg.pm b/lib/PublicInbox/ContentDigestDbg.pm
index 31d0f7070..853624f13 100644
--- a/lib/PublicInbox/ContentDigestDbg.pm
+++ b/lib/PublicInbox/ContentDigestDbg.pm
@@ -11,7 +11,7 @@ sub new { bless [ PublicInbox::SHA->new(256), $_[1] ], __PACKAGE__ }
 sub add {
 	$_[0]->[0]->add($_[1]);
 	my @dbg = split(/^/sm, $_[1]);
-	if ($dbg[0] =~ /\A(To|Cc)\0/) { # fold excessively long lines
+	if (@dbg && $dbg[0] =~ /\A(To|Cc)\0/) { # fold excessively long lines
 		@dbg = map { split(/,/s, $_) } @dbg;
 	}
 	print { $_[0]->[1] } Dumper(\@dbg) or die "print $!";