It's possible that we hit messages or attachments with empty
bodies, so avoid doing a regexp match on an uninitialized variable.
---
 lib/PublicInbox/ContentDigestDbg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/PublicInbox/ContentDigestDbg.pm 
b/lib/PublicInbox/ContentDigestDbg.pm
index 31d0f707..853624f1 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 $!";

Reply via email to