[PATCH 1/4] test_common: force IPv4 with pre-IPv6 Net::POP3

[Eric Wong]

This fixes t/pop3d-limit.t with the Net::POP3 shipped with Perl v5.16.3
on CentOS 7.x
---
 lib/PublicInbox/TestCommon.pm | 1 +
 t/pop3d-limit.t               | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 28edee9f..1fdb5ebd 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -129,6 +129,7 @@ my %IPv6_VERSION = (
        'Net::NNTP' => 3.00,
        'Mail::IMAPClient' => 3.40,
        'HTTP::Tiny' => 0.042,
+       'Net::POP3' => 2.32,
 );
 
 sub require_mods {
diff --git a/t/pop3d-limit.t b/t/pop3d-limit.t
index 39d2f918..00da477d 100644
--- a/t/pop3d-limit.t
+++ b/t/pop3d-limit.t
@@ -75,7 +75,7 @@ my $login_d = ('d'x32)."\@$group?limit=100000";
 my $login_d0 = ('d'x32)."\@$group.0?limit=100000";
 
 for my $login ($login_a, $login_a0) {
-       my $np3 = Net::POP3->new(@np3args);
+       my $np3 = Net::POP3->new(@np3args) or xbail "Net::POP3 $!";
        $np3->login($login, 'anonymous') or xbail "login $login ($!)";
        my @msg = $fetch_delete->($np3);
        $np3->quit;