| Subject: | Net::DNS 0.75 and above breaks smokepingD |
| Date: | Mon, 16 Jun 2014 16:33:12 -0400 (EDT) |
| To: | bug-Net-DNS [...] rt.cpan.org |
| From: | bsdgeek [...] optonline.net |
When using Net::DNS 0.75 and above, I get the following error message
when running smokeping-2.6.9.
Undefined subroutine &Net::DNS::PACKETSZ called at /usr/local/smokeping/lib/Smokeping/probes/AnotherDNS.pm line 98.
Snippet of code surrounding the above line:
96 if ( defined $ready ) {
97 my $buf = '';
98 $ready->recv( $buf, &Net::DNS::PACKETSZ );
99 my ($recvPacket, $err) = Net::DNS::Packet->new(\$buf);
100 if (defined $recvPacket) {
101 my $recvHeader = $recvPacket->header();
102 next if $recvHeader->ancount() < $target->{vars}{require_answers};
103 if (not $require_noerror) {
104 push @times, $elapsed;
105 } else {
106 # Check the Response Code for the NOERROR.
107 if ($recvHeader->rcode() eq "NOERROR") {
108 push @times, $elapsed;
109 }
110 }
111 }
112 }
development:/root->perl -v
This is perl 5, version 16, subversion 3 (v5.16.3) built for i386-freebsd-thread-multi-64int
uname -a
FreeBSD development.c-ad.bnl.gov 9.1-RELEASE-p14 FreeBSD 9.1-RELEASE-p14 #0: Tue Jun 3 08:49:09 UTC 2014 root@amd64-builder.daemonology.net:/usr/obj/usr/src/sys/GENERIC i386
More detail available upon request, I have no patch for this issue.
Thanks in advance.