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.
This commit is contained in:
Mark Andrews
2022-09-27 15:18:25 +10:00
parent 3a87ff3dfe
commit d1983adc22
3 changed files with 7 additions and 6 deletions

View File

@@ -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.

View File

@@ -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

View File

@@ -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);
}