Skip Menu |

This queue is for tickets about the Net-DNS-Dig CPAN distribution.

Report information
The Basics
Id: 95604
Status: new
Priority: 0/
Queue: Net-DNS-Dig

People
Owner: Nobody in particular
Requestors: gabor [...] szabgab.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Net::DNS::Dig 0.12 bug in dig.pl
Date: Tue, 13 May 2014 10:20:00 +0300
To: bug-net-dns-dig [...] rt.cpan.org
From: Gabor Szabo <gabor [...] szabgab.com>
dig.pl that comes with the modules has some problems. It passes all the $config values as undef if they are not supplied on the command line. Instead of what it does now the $config hash should be filled only with values that were actually supplied by the user. attached version is fixing the issues. ------- I downloaded the dig.pl that comes with the module using wget http://api.metacpan.org/source/MIKER/Net-DNS-Dig-0.12/examples/dig.pl and tried to run it: $ perl dig.pl perlmaven.com unsupported Proto '' at .../perl-5.18.2/lib/site_perl/5.18.2/Net/DNS/Dig.pm line 680. Then I edited dig.pl, commented out #Proto => $tcp, and ran again: $ perl dig.pl -t ns anymaven.com ; <<>> Net::DNS::Dig 0.12 <<>> -t ns anymaven.com. ;; ; Transfer failed. ;; Got answer. ;; ->>HEADER<<- opcode: QUERY, status: SERVFAIL, id: 48848 ;; flags:; QUERY: 1, ANSWER: 0, AUTHORITY: 0, ADDITIONAL: 0 ;anymaven.com. IN NS OTOH $ dig -t NS anymaven.com ; <<>> DiG 9.8.3-P1 <<>> -t NS anymaven.com ;; global options: +cmd ;; Got answer: ;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 19433 ;; flags: qr rd ra; QUERY: 1, ANSWER: 2, AUTHORITY: 0, ADDITIONAL: 1 ;; OPT PSEUDOSECTION: ; EDNS: version: 0, flags: do; udp: 4096 ;; QUESTION SECTION: ;anymaven.com. IN NS ;; ANSWER SECTION: anymaven.com. 3600 IN NS s7.hostlocal.com. anymaven.com. 3600 IN NS ns4.tracert.com. ;; Query time: 90 msec ;; SERVER: 192.168.1.1#53(192.168.1.1) ;; WHEN: Tue May 13 09:48:01 2014 ;; MSG SIZE rcvd: 94 After commenting out all the other values in my $config = { #Timeout => $time, #PeerAddr => $server, #PeerPort => $port, ##Proto => $tcp, #Recursion => $recurse, }; it started to work: $ perl dig.pl -t NS anymaven.com ; <<>> Net::DNS::Dig 0.12 <<>> -t ns anymaven.com. ;; ;; Got answer. ;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 49653 ;; flags: qr rd ra; QUERY: 1, ANSWER: 2, AUTHORITY: 0, ADDITIONAL: 1 ;; QUESTION SECTION: ;anymaven.com. IN NS ;; ANSWER SECTION: anymaven.com. 3132 IN NS ns4.tracert.com. anymaven.com. 3132 IN NS s7.hostlocal.com. ;; ADDITIONAL SECTION: . 32768 CLASS4096 OPT \# 0 ;; Query time: 115 ms ;; SERVER: 192.168.1.1# 53(192.168.1.1) ;; WHEN: Tue May 13 09:55:49 2014 ;; MSG SIZE rcvd: 94 -- XFR size: 4 records

Message body is not shown because sender requested not to inline it.

Subject: Re: [rt.cpan.org #95604] AutoReply: Net::DNS::Dig 0.12 bug in dig.pl
Date: Tue, 13 May 2014 11:21:29 +0300
To: bug-Net-DNS-Dig [...] rt.cpan.org
From: Gabor Szabo <gabor [...] szabgab.com>
... and I see the same code with the same bug in the pod of https://metacpan.org/pod/Net::DNS::Dig Gabor