03_ipv6-support.dpatch introduces a call to inet_pton:
if( defined $prop->{reverse_lookups} ){
- $prop->{peerhost} = gethostbyaddr( inet_aton($prop->{peeraddr}), AF_INET
);
+ $prop->{peerhost} = ( (length($sockname) > 16) ? gethostbyaddr(
inet_pton(AF_INET6, $prop->{peeraddr}), AF_INET6 ) : gethostbyaddr(
inet_aton($prop->{peeraddr}), AF_INET ) );
}
but doest not import it from Socket6:
-use Socket qw(inet_aton inet_ntoa AF_INET AF_UNIX SOCK_DGRAM SOCK_STREAM);
+use Socket qw(inet_aton inet_ntoa AF_INET AF_INET6 AF_UNIX SOCK_DGRAM
SOCK_STREAM);
+use Socket6 qw(inet_ntop);
So if reverse_lookups is enabled error messages come:
Undefined subroutine &Net::Server::inet_pton called at
/usr/share/perl5/Net/Server.pm line 773.
Gabor
--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
