truncation: include header name in warning header

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
(cherry picked from commit 8ef141149699a8e07868a9110583763f6c1aa7b0)

diff --git a/stump/bin/submission.pl b/stump/bin/submission.pl
index d6f5a400b1abba9fdbbdd261bb341348b2112328..fa98e930f7b3abc5978bf787126b72686b438585 100755 (executable)
--- a/stump/bin/submission.pl
+++ b/stump/bin/submission.pl
@@ -349,7 +349,8 @@ sub readMessage {
            $_ = substr($_, 0, 500);
            $_ =~ s/\n?$/\n/;
            $readahead = $_;
-           $_ = $warning->("Next header truncated!");
+           m/^[0-9a-z-]+/i;
+           $_ = $warning->("Next header ($&) truncated!");
          }
        }
       } else {