From: Eric Wong <e@80x24.org>
Date: Sun, 24 Sep 2023 21:08:19 +0000 (+0000)
Subject: test_common: force IPv4 with pre-IPv6 Net::POP3
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=73992d52f97f20b4db50a8e7a74ef78d4d473aa3;p=thirdparty%2Fpublic-inbox.git

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 28edee9f3..1fdb5ebd4 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 39d2f9185..00da477d6 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;