upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-15 23:48:52 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

IO::Socket::INET6 has been replaced by IO::Socket::IP

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

(cherry picked from commit d1983adc22)
(cherry picked from commit fff8de8430)
This commit is contained in:
Mark Andrews 2022-09-27 15:18:25 +10:00 committed by Michal Nowak
parent f28c3d2c62
commit 0f4cdcde03
No known key found for this signature in database
4 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README
View file

@ -138,7 +138,7 @@ multiple servers to run locally and communicate with one another). 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 will be skipped if these are not available. Some tests require Python
and the dnspython module and will be skipped if these are not available.
See bin/tests/system/README for further details.

2
README.md
View file

@ -158,7 +158,7 @@ multiple servers to run locally and communicate with one another). 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 will be skipped if these are not available. Some tests require Python
and the `dnspython` module and will be skipped if these are not available.
See bin/tests/system/README for further details.

2
bin/tests/system/conf.sh.common
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/bin/tests/system/testsock6.pl" "$@"
else

9
bin/tests/system/testsock6.pl
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);
}