Subject: | Mail::Internet doesn't accept Net::SMTP::SSL object |
Patch speaks for itself:
--- /usr/share/perl5/Mail/Internet.pm~ 2010-10-01 06:39:50.000000000 -0400
+++ /usr/share/perl5/Mail/Internet.pm 2011-06-01 06:11:53.189125826 -0400
@@ -406,7 +406,8 @@
last if defined $smtp;
}
}
- elsif(ref($host) && UNIVERSAL::isa($host,'Net::SMTP'))
+ elsif(ref($host) && (UNIVERSAL::isa($host,'Net::SMTP') ||
+ UNIVERSAL::isa($host,'Net::SMTP::SSL')))
{ $smtp = $host;
$quit = 0;
}