Subject: | UNIVERSAL::isa( $obj, "Net::SMTP" ) returns false |
Date: | Wed, 08 Aug 2007 05:47:45 -0400 |
To: | bug-Net-SMTP-SSL [...] rt.cpan.org |
From: | Sherrard Burton <sburton [...] allafrica.com> |
not sure if this package is still being maintained, but i had a problem
trying to use Net::SMTP::SSL in conjunction with Mail::Internet, which
will accept a Net::SMTP object as an argument. the problem is that even
thought Net::SMTP::SSL grabs all of the ISAs for Net::SMTP, it doesn't
add Net::SMTP itself. as a result, UNIVERSAL::isa($obj,'Net::SMTP')
returns false.
i fixed this by changing this
@ISA = ( 'IO::Socket::SSL',
grep { $_ ne 'IO::Socket::INET' } @Net::SMTP::ISA );
to this
@ISA = ( 'IO::Socket::SSL', 'Net::SMTP',
grep { $_ ne 'IO::Socket::INET' } @Net::SMTP::ISA );
this was using
Net-SMTP-SSL-1.01
perl, v5.8.7 built for i386-linux-thread-multi
Linux editorial.allafrica.com 2.4.27-3-686-smp #1 SMP Tue Dec 5 23:12:28
UTC 2006 i686 GNU/Linux