diff options
| author | fukachan <fukachan> | 2002-12-09 14:03:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-09 14:03:03 +0000 |
| commit | 8ea9d0cd18ab5db3e1e0982cab53c2d117e6491b (patch) | |
| tree | e9575fb7ecd01cf0530faa32293445482273cbf3 /cpan/lib/Mail/Mailer/rfc822.pm | |
| parent | 25b723368eee41aae7bfc4138aead2227040402e (diff) | |
| download | fml8-MailTools-1-52.tar.gz fml8-MailTools-1-52.tar.bz2 fml8-MailTools-1-52.zip | |
MailTools-1.52MailTools-1-52
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 } |