In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d9f1f2180617474b71194b4a5be33d71e7d11066?hp=1a9add0f18826c4f8bf9531aa27c044ddd6ce986>
- Log ----------------------------------------------------------------- commit d9f1f2180617474b71194b4a5be33d71e7d11066 Author: David Mitchell <[email protected]> Date: Tue May 12 14:37:25 2009 +0100 make mergelog-tool truncate large email bodies ----------------------------------------------------------------------- Summary of changes: Porting/mergelog-tool | 6 ++++++ 1 files changed, 6 insertions(+), 0 deletions(-) diff --git a/Porting/mergelog-tool b/Porting/mergelog-tool index 85921f0..23fd2ae 100755 --- a/Porting/mergelog-tool +++ b/Porting/mergelog-tool @@ -265,6 +265,12 @@ sub generate_mailboxes { $files_and_diff =~ s/^( \d+ files changed,)/\n$1/m; $files_and_diff =~ s/^diff /$linesep\n\ndiff /m; + # truncate long bodies + + if (length($files_and_diff) > 100_000) { + substr($files_and_diff, 100_000) = + "\n\n***TRUNCATED at 100Kbytes\n"; + } my $body = <<EOF; From: $c->[1] <$c->[2]> -- Perl5 Master Repository
