[smokeping-users] AnotherDNS acting up with Net::DNS 0.73

[Gert Doering]

Hi,

I've recently upgraded perl and all perl modules on my Smokeping host
(due to FreeBSD urging me to it).  It's now perl 5.14.4 and Net::DNS 0.73,
smokeping 2.6.9.

Smokeping itself seems to work nicely, but AnotherDNS is failing in funny
ways - specifically, it's claiming 4/5 loss for all DNS tests, even though
I can see DNS queries going out and replies coming back (5+5, in the
proper intervals as configured).

In parallel, these error messages are showing up in the smokeping
log:

Mon Jan 13 12:05:43 2014 - ***  FATAL PROGRAM ERROR!!   Unknown method 'default'
***  which the program has attempted to call for the object:
***
***  .  0 IN OPT \# 0
***
***  This object does not have a method 'default'.  THIS IS A BUG
***  IN THE CALLING SOFTWARE, which incorrectly assumes that the
***  object would be of a particular type.  The type of an object
***  should be checked before calling any of its methods.
 at /usr/local/lib/perl5/site_perl/5.14.2/mach/Net/DNS/Packet.pm line 183
 Net::DNS::Packet::data('Net::DNS::Packet=HASH(0x90464b4)') called at /usr/local/smokeping/lib/Smokeping/probes/AnotherDNS.pm line 75
 Smokeping::probes::AnotherDNS::pingone('Smokeping::probes::AnotherDNS=HASH(0x914e810)', 'HASH(0x896e6dc)') called at /usr/local/smokeping/lib/Smokeping/probes/basefork.pm line 204
 Smokeping::probes::basefork::ping('Smokeping::probes::AnotherDNS=HASH(0x914e810)') called at /usr/local/smokeping/lib/Smokeping.pm line 1719
 Smokeping::run_probes('HASH(0x8d39a34)', 'AnotherDNS') called at /usr/local/smokeping/lib/Smokeping.pm line 4382
 Smokeping::main('/usr/local/etc/smokeping/config') called at /usr/local/bin/smokeping line 13

... always 4 messages for each test cycle, so it seems all packet but the
first are eaten by Net::DNS interactions.

The line numbers in the backtrace are off, though I have no idea how *that*
happened - the line that is triggering it seems to be line *76*, which is

    my $packet = Net::DNS::Packet->new( $lookuphost, $recordtype )->data;


Before I now go and debug this: does this ring a bell for anyone?  Is this
a known issue, and the patch has just not been merged yet?

Gert Doering
        -- NetMaster
-- 
have you enabled IPv6 on something today...?

SpaceNet AG                        Vorstand: Sebastian v. Bomhard
Joseph-Dollinger-Bogen 14          Aufsichtsratsvors.: A. Grundner-Culemann
D-80807 Muenchen                   HRB: 136055 (AG Muenchen)
Tel: +49 (0)89/32356-444           USt-IdNr.: DE813185279