[PATCH 4/4] content_digest_dbg: improve display of To:/Cc: diffs

[Eric Wong]

To: and Cc: headers can be long and differences in long lines
are easier to view when broken apart.  Just split by /,/ since
Data::Dumper will delimit with "," anyways.
---
 lib/PublicInbox/ContentDigestDbg.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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