From: Eric Wong <e@80x24.org>
Date: Tue, 12 Sep 2023 12:25:23 +0000 (+0000)
Subject: tests: favor IO::Socket::IP for IPv6 listeners
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=193783ca8247489877c1629b7685bae66ddb80d5;p=thirdparty%2Fpublic-inbox.git

tests: favor IO::Socket::IP for IPv6 listeners

IO::Socket::IP is bundled with Perl 5.24+ so it's more likely
to be available than IO::Socket::INET6.
---

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 17057e18d..b1a37cedc 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -62,8 +62,12 @@ sub tcp_server () {
 	);
 	eval {
 		die 'IPv4-only' if $ENV{TEST_IPV4_ONLY};
-		require IO::Socket::INET6;
-		IO::Socket::INET6->new(%opt, LocalAddr => '[::1]')
+		my $pkg;
+		for (qw(IO::Socket::IP IO::Socket::INET6)) {
+			eval "require $_" or next;
+			$pkg = $_ and last;
+		}
+		$pkg->new(%opt, LocalAddr => '[::1]');
 	} || eval {
 		die 'IPv6-only' if $ENV{TEST_IPV6_ONLY};
 		IO::Socket::INET->new(%opt, LocalAddr => '127.0.0.1')