Mailing List Archive

Mail::Mailer
Today I used Mail::Send with $\ in effect and this has an undesirable
outcome. Here is the patch:

*** /usr/sources/perl/module/mail/MailTools-1.02a/lib/Mail/Mailer.pm Mon Aug 14 14:37:13 1995
--- Mailer.pm Fri Sep 8 08:21:33 1995
***************
*** 171,176 ****
--- 171,177 ----
sub set_headers {
my $self = shift;
my $hdrs = shift;
+ local($\)="";
foreach(keys %$hdrs) {
next unless m/^[A-Z]/;
print $self "$_: @{$hdrs->{$_}}\n";



Regards,
andreas