Changeset 147

Show
Ignore:
Timestamp:
02/25/06 17:24:59
Author:
miyagawa
Message:

Don't use "package MIME::Lite" because CPAN indexer hates it. Fixes #52

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/Publish/Gmail.pm

    r104 r147  
    9090 
    9191# hack MIME::Lite to support TLS Authentication 
    92 package MIME::Lite; 
    93  
    94 sub send_by_smtp_tls { 
     92*MIME::Lite::send_by_smtp_tls = sub { 
    9593    my($self, @args) = @_; 
    9694 
    …… 
    130128 
    131129    1; 
    132 } 
     130}; 
    133131 
    134 package MIME::Lite::SMTP::TLS; 
    135 use base qw( Net::SMTP::TLS ); 
    136  
    137 sub print { shift->datasend(@_) } 
     132@MIME::Lite::SMTP::TLS::ISA = qw( Net::SMTP::TLS ); 
     133sub MIME::Lite::SMTP::TLS::print { shift->datasend(@_) } 
    138134 
    1391351;