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:
@@ -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.
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user