Need help with bug in libnet-dns-perl

[Florian Hinzmann <fh@bigfoot.de>]

Hi!


I've mailed that bugreport to the upstream author and tried to
solve it by myself, but failed. Therefore I try to find some
help at this list.


This is the bugreport (#50476):

> Package: libnet-dns-perl
> Version: 0.12-4
>
> After changing nameserver with $res->nameservers, $res->query fails
> with the error "send: Cannot determine peer address at
> /usr/lib/perl5/Net/DNS/Resolver.pm line 664".  The following program
> demonstrates this:
> 
> ------------------------------------------------------------------------
> #!/usr/bin/perl -Tw
> 
> use Net::DNS;
> 
> die("USAGE: $0 domain\n") unless scalar(@ARGV) == 1;
> my($res) = new Net::DNS::Resolver;
> $res->nameservers('a.root-servers.net');
> print($res->query($ARGV[0], "NS")? "success\n": "failure\n");
> ------------------------------------------------------------------------
> 
> I'm using kernel 2.0.36, libc6_2.1.2-10 and perl-5.005_5.005.03-4.

If the line setting the nameserver to "a.root-servers.net" is commented 
out that script works fine. 

After setting the nameserver with "$res->nameservers('hostname')" I get
the ip address of "hostname" with "$res->print" or "$res->nameservers".
Everything looks fine so far.
But the query fails nevertheless.

I've read the manpages Net::DNS and Net::DNS::Resolver and tried to
understand what happens inside /usr/lib/perl5/Net/DNS/Resolver.pm,
but did not get very far.


I would be very happy if someone helps me with this. I'll work on 
it this evening and saturday morning probably.


  TIA
   Florian


-- 
  Florian Hinzmann      private: fh@bigfoot.de  Debian: fh@debian.org
                           work: fh@dipa.de
PGP-Key fingerprint: DD 61 74 34 04 FB 8A BD  43 54 83 38 0C 82 EF B1