diff options
| author | Graham Barr <gbarr@pobox.com> | 2004-06-30 13:47:36 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2004-06-30 13:47:36 +0000 |
| commit | 9714c66736b4a0b2235cb81bc9b77bbb7dd528fd (patch) | |
| tree | 43a79dfd183172276a5bf6fbe4f87b44e86b0283 /lib/Net/SMTP.pm | |
| parent | b033823e2923b62e3c7a923af9208bf9b9e23040 (diff) | |
| download | perl-9714c66736b4a0b2235cb81bc9b77bbb7dd528fd.tar.gz | |
Sync to libnet-1.19
p4raw-id: //depot/perl@23016
Diffstat (limited to 'lib/Net/SMTP.pm')
| -rw-r--r-- | lib/Net/SMTP.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm index e7276de9cd..44a955a8dd 100644 --- a/lib/Net/SMTP.pm +++ b/lib/Net/SMTP.pm @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.28"; +$VERSION = "2.29"; @ISA = qw(Net::Cmd IO::Socket::INET); @@ -109,8 +109,10 @@ sub etrn { sub auth { my ($self, $username, $password) = @_; - require MIME::Base64; - require Authen::SASL; + eval { + require MIME::Base64; + require Authen::SASL; + } or $self->set_status(500,["Need MIME::Base64 and Authen::SASL todo auth"]), return 0; my $mechanisms = $self->supports('AUTH',500,["Command unknown: 'AUTH'"]); return unless defined $mechanisms; |