- ($port, $addr) = Socket6::unpack_sockaddr_in6($n);
- } else {
- ($port, $addr) = Socket::sockaddr_in($n);
- }
- if (length($addr) == 4) {
- $n = Socket::inet_ntoa($addr)
+ ($port, $host) = Socket6::unpack_sockaddr_in6($addr);
+ $host = '['.Socket6::inet_ntop(Socket6::AF_INET6(), $host).']';