diff -up Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm.orig Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm
--- Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm.orig 2017-06-30 12:16:21.706412573 +0200
+++ Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm 2017-06-30 15:25:51.762535024 +0200
@@ -257,7 +257,7 @@ sub login(;$)
return;
}
- my $net = $self->{MTP_ssl} ? 'IO::Socket::SSL' : 'IO::Socket::INET';
+ my $net = $self->{MTP_ssl} ? 'IO::Socket::SSL' : 'IO::Socket::IP';
eval "require $net" or die $@;
my $socket = eval {$net->new("$host:$port")};
diff -up Mail-Box-POP3-3.001/t/server.orig Mail-Box-POP3-3.001/t/server
--- Mail-Box-POP3-3.001/t/server.orig 2017-06-30 12:17:40.145945703 +0200
+++ Mail-Box-POP3-3.001/t/server 2017-06-30 12:21:19.785638413 +0200
@@ -142,7 +142,7 @@ so a statistics list for one successful
# Make sure we can do digests
use strict;
-use IO::Socket;
+use IO::Socket::IP;
use Digest::MD5 qw(md5_hex);
# Obtain the directory to work on
@@ -181,7 +181,7 @@ while (my $keyword = shift) {
# Create a server that can only take one connection at a time
$| = 1;
-my $server = IO::Socket::INET->new(
+my $server = IO::Socket::IP->new(
Type => SOCK_STREAM,
Listen => 1,
@port,