This was reported independently and is fixed but not yet released.
The reporter confirmed the change below worked for him. Sorry for the
nasty formatting.
##############
In the 20100211 release, replace this section of code:
if (defined($o->{header}) && ref($o->{header}) eq 'ARRAY'
&& scalar(@{$o->{header}}))
{
#my %matched = ();
foreach my $l (map { split(/\\n/) } @{$o->{header}}) {
if (my($h) = $l =~ /^([^:]+):/) {
$n{data} =~ s/(^|\\n|\n)$h:.*?($|\\n|\n)/$1$l$2/;
#if (!$matched{$h}
# && $n{data} =~ s/(^|\\n|\n)$h:.*?($|\\n|\n)/$1$l$2/)
#{
# $matched{$h} = 1;
#} else { push(@{$o->{add_header}}, $l); }
} else { push(@{$o->{add_header}}, $l); }
}
}
With this:
if (defined($o->{header}) && ref($o->{header}) eq 'ARRAY'
&& scalar(@{$o->{header}}))
{
foreach my $l (map { split(/\\n/) } @{$o->{header}}) {
if (my($h) = $l =~ /^([^:]+):/) {
if ($n{data} !~ s/(^|\\n|\n)$h:.*?($|\\n|\n)/$1$l$2/) {
push(@{$o->{add_header}}, $l);
}
} else { push(@{$o->{add_header}}, $l); }
}
}
I've made other changes so I can't give you exact line numbers.
###################
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
