Package: libemail-simple-perl
Version: 1.9-1
Followup-For: Bug #297920
This would seem to solve the problem:
--- /usr/share/perl5/Email/Simple.pm 2004-07-11 23:06:39.000000000 +0200
+++ Email/Simple.pm 2005-03-03 16:01:41.371149458 +0100
@@ -97,6 +97,7 @@
my $head = shift;
my @head_order;
my ($curhead, $head_hash) = ("", {});
+ my %head_names;
for (split /$crlf/, $head) {
if (s/^\s+// or not /^([^:]+):\s*(.*)/) {
next if !$curhead; # Well, that sucks.
@@ -106,6 +107,12 @@
$head_hash->{$curhead}->[-1] .= $head_hash->{$curhead}->[-1] ? "
$_" : $_;
} else {
$curhead = $1;
+ if (exists $head_names{lc $curhead}) {
+ $curhead = $head_names{lc $curhead};
+ }
+ else {
+ $head_names{lc $curhead} = $curhead;
+ }
push @{$head_hash->{$curhead}}, $2;
push @head_order, $curhead;
}
-- System Information:
Debian Release: 3.1
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'testing')
Architecture: i386 (i686)
Kernel: Linux 2.6.8+lisbeth.20050206
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Versions of packages libemail-simple-perl depends on:
ii perl 5.8.4-6 Larry Wall's Practical Extraction
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
