| Subject: | one AF_INET6 left instead of AF_INET6() |
Hello
Info : perl v5.6.1, FreeBSD 5.2.1-RELEASE-p9
Net-DNS 0.51_02 and 0.52 are broken because someone left a "AF_INET6" instead of "AF_INET6()" in Resolver/Base.pm (same bug as what motivated 0.51_01).
Juste replace "AF_INET6" with "AF_INET6()" and it is fixed.
Patch against 0.52 :
*** Base.pm.orig Fri Jul 1 23:40:33 2005
--- Base.pm Tue Jul 19 10:06:37 2005
***************
*** 756,762 ****
#my $old_wflag = $^W;
#$^W = 0;
! $sock[AF_INET6] = IO::Socket::INET6->new(
LocalAddr => $srcaddr,
LocalPort => ($srcport || undef),
Proto => 'udp',
--- 756,762 ----
#my $old_wflag = $^W;
#$^W = 0;
! $sock[AF_INET6()] = IO::Socket::INET6->new(
LocalAddr => $srcaddr,
LocalPort => ($srcport || undef),
Proto => 'udp',