Bug#759483: AnotherDNS: Undefined subroutine &Net::DNS::PACKETSZ

[Gerald Turner]

Package: smokeping
Version: 2.6.9-1
Followup-For: Bug #759483
Tags: patch

Looks like upstream fixed this bug in release 2.6.10 by simply replacing
the constant with the hard-coded value 512.  Attached is a patch which
does just that and fixes the probe.

-- System Information:
Debian Release: 8.0
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: amd64 (x86_64)

Kernel: Linux 3.16.0-4-amd64 (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Init: systemd (via /run/systemd/system)

Versions of packages smokeping depends on:
ii  adduser                 3.113+nmu3
ii  debianutils             4.4+b1
ii  fping                   3.10-2
ii  libcgi-fast-perl        1:2.04-1
ii  libconfig-grammar-perl  1.10-2
ii  libdigest-hmac-perl     1.03+dfsg-1
ii  libjs-cropper           1.2.2-1
ii  libjs-prototype         1.7.1-3
ii  libjs-scriptaculous     1.9.0-2
ii  librrds-perl            1.4.8-1.2
ii  libsnmp-session-perl    1.13-1.1
ii  liburi-perl             1.64-1
ii  libwww-perl             6.08-1
ii  lsb-base                4.1+Debian13+nmu1
ii  perl                    5.20.2-3
ii  ucf                     3.0030

Versions of packages smokeping recommends:
ii  apache2 [httpd-cgi]             2.4.10-10
ii  apache2-mpm-worker [httpd-cgi]  2.4.10-10
ii  dnsutils                        1:9.9.5.dfsg-9
ii  echoping                        6.0.2-8
ii  libsocket6-perl                 0.25-1+b1

Versions of packages smokeping suggests:
ii  curl                            7.38.0-4
pn  libauthen-radius-perl           <none>
ii  libio-socket-ssl-perl           2.002-2
ii  libnet-dns-perl                 0.81-2
pn  libnet-ldap-perl                <none>
ii  libnet-telnet-perl              3.04-1
ii  openssh-client                  1:6.7p1-3
ii  postfix [mail-transport-agent]  2.11.3-1

-- Configuration Files:
/etc/smokeping/config.d/Alerts changed [not included]
/etc/smokeping/config.d/General changed [not included]
/etc/smokeping/config.d/Probes changed [not included]
/etc/smokeping/config.d/Targets changed [not included]
/etc/smokeping/smokeping_secrets [Errno 13] Permission denied: 
u'/etc/smokeping/smokeping_secrets'

-- no debconf information

-- 
Gerald Turner <gtur...@unzane.com>        Encrypted mail preferred!
OpenPGP: 4096R / CA89 B27A 30FA 66C5 1B80  3858 EC94 2276 FDB8 716D

diff -ur smokeping-2.6.9.orig/lib/Smokeping/probes/AnotherDNS.pm smokeping-2.6.9/lib/Smokeping/probes/AnotherDNS.pm
--- smokeping-2.6.9.orig/lib/Smokeping/probes/AnotherDNS.pm	2013-03-16 08:29:16.000000000 -0700
+++ smokeping-2.6.9/lib/Smokeping/probes/AnotherDNS.pm	2015-04-14 17:26:14.000000000 -0700
@@ -95,7 +95,7 @@
         $elapsed = tv_interval( $t0, $t1 );
         if ( defined $ready ) {
             my $buf = '';
-            $ready->recv( $buf, &Net::DNS::PACKETSZ );
+            $ready->recv( $buf, 512 );
 	    my ($recvPacket, $err) = Net::DNS::Packet->new(\$buf);
 	    if (defined $recvPacket) {
 		my $recvHeader = $recvPacket->header();

signature.asc
Description: PGP signature