about summary refs log tree commit
path: root/Net/SMTP.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Net/SMTP.pm')
-rw-r--r--Net/SMTP.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/Net/SMTP.pm b/Net/SMTP.pm
index e7276de..44a955a 100644
--- a/Net/SMTP.pm
+++ b/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;