From 07eb463a20fae3d84a1e70860ceeff74ab6a5e01 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 11 May 2008 19:21:47 -0700 Subject: [PATCH] * fix chomp wrongness --- scripts/process.in | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/process.in b/scripts/process.in index 60e53dd..e17127b 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 -- 2.39.2