summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Net/SMTP.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Net/SMTP.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Net/SMTP.pm14
1 files changed, 9 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/Net/SMTP.pm b/Master/tlpkg/tlperl/lib/Net/SMTP.pm
index 0130a2fd64b..0dd966fdf6f 100644
--- a/Master/tlpkg/tlperl/lib/Net/SMTP.pm
+++ b/Master/tlpkg/tlperl/lib/Net/SMTP.pm
@@ -21,7 +21,7 @@ use Net::Cmd;
use Net::Config;
use Socket;
-our $VERSION = "3.08_01";
+our $VERSION = "3.10";
# Code for detecting if we can use SSL
my $ssl_class = eval {
@@ -39,7 +39,7 @@ my $family_key = 'Domain';
my $inet6_class = eval {
require IO::Socket::IP;
no warnings 'numeric';
- IO::Socket::IP->VERSION(0.20) || die;
+ IO::Socket::IP->VERSION(0.25) || die;
$family_key = 'Family';
} && 'IO::Socket::IP' || eval {
require IO::Socket::INET6;
@@ -225,11 +225,15 @@ sub auth {
if defined $str and length $str;
while (($code = $self->command(@cmd)->response()) == CMD_MORE) {
+ my $str2 = MIME::Base64::decode_base64(($self->message)[0]);
+ $self->debug_print(0, "(decoded) " . $str2 . "\n") if $self->debug;
+
+ $str = $client->client_step($str2);
@cmd = (
- MIME::Base64::encode_base64(
- $client->client_step(MIME::Base64::decode_base64(($self->message)[0])), ''
- )
+ MIME::Base64::encode_base64($str, '')
);
+
+ $self->debug_print(1, "(decoded) " . $str . "\n") if $self->debug;
}
$code == CMD_OK;