| Subject: | Mail-Sendmail-0.79 bug |
| Date: | Wed, 13 Feb 2008 17:00:46 -0600 |
| To: | "bug-Mail-Sendmail [...] rt.cpan.org" <bug-Mail-Sendmail [...] rt.cpan.org> |
| From: | "Greer, Doug [IT]" <Doug.R.Greer [...] sprint.com> |
Mail-Sendmail-0.79
perl -v
This is perl, v5.8.8 built for x86_64-linux
uname -a
Linux kcnetopsp01 2.6.5-7.97-smp #1 SMP Fri Jul 2 14:21:59 UTC 2004 x86_64 x86_64 x86_64 GNU/Linux
From Pod:
$mailcfg{smtp}
$mailcfg{smtp} = [qw(localhost my.other.mail.server)];
This doesn't work as advertised.
Quick fix:
194c194,198
< unshift @{$mailcfg{'smtp'}}, $smtp if ($smtp and $mailcfg{'smtp'}->[0] ne $smtp);
---
Show quoted text
> if(ref($smtp)) {
> $mailcfg{'smtp'} = $smtp;
> } else {
> unshift @{$mailcfg{'smtp'}}, $smtp if ($smtp and $mailcfg{'smtp'}->[0] ne $smtp);
> }
Otherwise, I really like the module. Thanks for your work on it.
Sincerely,
Doug Greer
Apps Developer II
Phone: (913) 794-4765
Email: doug.r.greer@sprint.com
Cube: 5B516
6550 Sprint Pkway
MailStop: KSOPHR0512