test_common: force IPv4 with pre-IPv6 Net::POP3

This fixes t/pop3d-limit.t with the Net::POP3 shipped with Perl v5.16.3
on CentOS 7.x

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 28edee9f359a4e18c97512d63a22a8ef44dce418..1fdb5ebd4e31a089393df9139ebae6c4503b9ad9 100644 (file)
--- 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 39d2f9185921b69e932f3365bca0ee4526f15e77..00da477d6d80332b0406e9927ca101ca279efe21 100644 (file)
--- 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;