IO::Socket::IP is bundled with newer versions of Perl,
so it is more likely to be available. There should
be no differences between these with our use cases.
}
$o{Local} = delete $o{Peer};
} else {
- $sock_pkg = 'IO::Socket::INET6'; # works for IPv4, too
- eval "use $sock_pkg";
+ # both work for IPv4, too
+ for $sock_pkg (qw(IO::Socket::IP IO::Socket::INET6)) {
+ eval "use $sock_pkg";
+ $@ or last;
+ }
die $@ if $@;
%o = (LocalAddr => $l, ReuseAddr => 1, Proto => 'tcp');
}