From c26c9f338c3014789c3db42b5fd85693c43ba29d Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Tue, 25 Apr 2023 10:50:52 +0000 Subject: [PATCH] content_digest_dbg: improve display of To:/Cc: diffs 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 1e60364fb..31d0f7070 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 } -- 2.47.2