don't go past end of @msg when setting

[debbugs.git] / scripts / process

diff --git a/scripts/process b/scripts/process
index 516bd314505089aee2e1ae84360714dbdd746efb..bceb69cb186b4198267ad24014e67bd11b75d9bc 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -248,7 +248,7 @@ for my $key (grep /X-Debbugs-.*/i, keys %pheader) {
 # set $i to beginning of encoded body data, so we can dump it out
 # verbatim later
 my $i = 0;
-++$i while $msg[$i] =~ /./;
+++$i while $i <= $#msg and $msg[$i] =~ /./;
 $fwd .= join("\n",@msg[$i..$#msg]);
 
 binmode($debugfh,':raw');