From fff8de843017ac770e55f4f31abcff2c96df4410 Mon Sep 17 00:00:00 2001
From: Mark Andrews <marka@isc.org>
Date: Tue, 27 Sep 2022 15:18:25 +1000
Subject: [PATCH] IO::Socket::INET6 has been replaced by IO::Socket::IP

IO::Socket::INET6 is no longer being maintained and its functionality
has been replaced by IO::Socket::IP.

(cherry picked from commit d1983adc22f7cb0e995f74636ba022e81fb2b734)
---
 README.md                       | 2 +-
 bin/tests/system/conf.sh.common | 2 +-
 bin/tests/system/testsock6.pl   | 9 +++++----
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/README.md b/README.md
index 6e39de51e7..ad2b29bbc8 100644
--- a/README.md
+++ b/README.md
@@ -128,7 +128,7 @@ multiple servers to run locally and communicate with each other). These
 IP addresses can be configured by running the command
 `bin/tests/system/ifconfig.sh up` as root.
 
-Some tests require Perl and the `Net::DNS` and/or `IO::Socket::INET6` modules,
+Some tests require Perl and the `Net::DNS` and/or `IO::Socket::IP` modules,
 and are skipped if these are not available. Some tests require Python
 and the `dnspython` module and are skipped if these are not available.
 See bin/tests/system/README for further details.
diff --git a/bin/tests/system/conf.sh.common b/bin/tests/system/conf.sh.common
index ab0f689750..2d1c8a83ab 100644
--- a/bin/tests/system/conf.sh.common
+++ b/bin/tests/system/conf.sh.common
@@ -12,7 +12,7 @@
 # information regarding copyright ownership.
 
 testsock6() {
-	if test -n "$PERL" && $PERL -e "use IO::Socket::INET6;" 2> /dev/null
+	if test -n "$PERL" && $PERL -e "use IO::Socket::IP;" 2> /dev/null
 	then
 		$PERL "$TOP_SRCDIR/bin/tests/system/testsock6.pl" "$@"
 	else
diff --git a/bin/tests/system/testsock6.pl b/bin/tests/system/testsock6.pl
index 59036849a4..9d4e5b7a8f 100644
--- a/bin/tests/system/testsock6.pl
+++ b/bin/tests/system/testsock6.pl
@@ -13,13 +13,14 @@
 
 require 5.001;
 
-use IO::Socket::INET6;
+use IO::Socket::IP;
 
 foreach $addr (@ARGV) {
 	my $sock;
-	$sock = IO::Socket::INET6->new(LocalAddr => $addr,
-                                       LocalPort => 0,
-                                       Proto     => tcp)
+	$sock = IO::Socket::IP->new(LocalAddr => $addr,
+				    Domain => PF_INET6,
+                                    LocalPort => 0,
+                                    Proto     => tcp)
                              or die "Can't bind : $@\n";
 	close($sock);
 }