truncation: include header name in warning header

[modbot-mtm.git] / stump / bin / submission.pl

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