Patch is attached to correct the problem
commit b8281c8655ebe173abeb36da6382016abf957634
Author: Todd Rinaldo <toddr@cpan.org>
Date: Sat Feb 18 01:07:32 2012 -0600
RT 75109 - remove defined @array checks for Mail::Sender
diff --git a/Sender.pm b/Sender.pm
index 6fe1aba..d7169a5 100644
--- a/Sender.pm
+++ b/Sender.pm
@@ -315,7 +315,7 @@ my $debug_code;
sub __Debug {
my ($socket, $file) = @_;
if (defined $file) {
- unless (defined @Mail::Sender::DBIO::ISA) {
+ unless (@Mail::Sender::DBIO::ISA) {
eval "use Symbol;";
eval $debug_code;
die $@ if $@;
@@ -2690,7 +2690,7 @@ You should NOT touch the $sender->{'socket'} unless you really really know what
package Mail::Sender;
sub GetHandle {
my $self = shift();
- unless (defined @Mail::Sender::IO::ISA) {
+ unless (@Mail::Sender::IO::ISA) {
eval "use Symbol;";
eval $pseudo_handle_code;
}