From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 12 May 2008 02:21:47 +0000 (-0700)
Subject:  * fix chomp wrongness
X-Git-Tag: release/2.6.0~489^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=07eb463a20fae3d84a1e70860ceeff74ab6a5e01;p=debbugs.git

 * fix chomp wrongness
---

diff --git a/scripts/process.in b/scripts/process.in
index 60e53dd2..e17127b8 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -104,8 +104,8 @@ if ($entity and $entity->head->tags) {
     chomp @headerlines;
 
     my $entity_body = getmailbody($entity);
-    @bodylines = $entity_body ? $entity_body->as_lines() : ();
-    chomp @bodylines;
+    @bodylines = map {s/\r?\n$//; $_;}
+	 $entity_body ? $entity_body->as_lines() : ();
 
     # set $i to beginning of encoded body data, so we can dump it out
     # verbatim later