diff options
Diffstat (limited to 'lib/Net/SMTP.pm')
-rw-r--r-- | lib/Net/SMTP.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm index 57f51cc..afd017a 100644 --- a/lib/Net/SMTP.pm +++ b/lib/Net/SMTP.pm @@ -193,10 +193,11 @@ sub auth { if ($client) { # $client mechanism failed, so we need to exclude this mechanism from list my $failed_mechanism = $client->mechanism; + return unless defined $failed_mechanism; $self->debug_text("Auth mechanism failed: $failed_mechanism") if $self->debug; $mechanisms =~ s/\b\Q$failed_mechanism\E\b//; - last unless $mechanisms =~ /\S/; + return unless $mechanisms =~ /\S/; $sasl->mechanism($mechanisms); } |