diff options
Diffstat (limited to 'cpan/lib/Mail/Mailer/rfc822.pm')
| -rw-r--r-- | cpan/lib/Mail/Mailer/rfc822.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/cpan/lib/Mail/Mailer/rfc822.pm b/cpan/lib/Mail/Mailer/rfc822.pm index dcb0dbca..fa59d0fe 100644 --- a/cpan/lib/Mail/Mailer/rfc822.pm +++ b/cpan/lib/Mail/Mailer/rfc822.pm @@ -8,7 +8,12 @@ sub set_headers { local($\)=""; foreach(keys %$hdrs) { next unless m/^[A-Z]/; - print $self "$_: ", join(",", $self->to_array($hdrs->{$_})), "\n"; + + my ($h); + foreach $h ($self->to_array($hdrs->{$_})) + { $h =~ s/\n+\Z//; + print $self "$_: ", $h, "\n"; + } } print $self "\n"; # terminate headers } |