Skip Menu |
 

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

Report information
The Basics
Id: 91272
Status: open
Priority: 0/
Queue: Net-DNS-Dig

People
Owner: Nobody in particular
Requestors: vesemir [...] ymail.com
Cc:
AdminCc:

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



Subject: infinite loop?
Date: Mon, 9 Dec 2013 02:51:04 -0800 (PST)
To: "bug-Net-DNS-Dig [...] rt.cpan.org" <bug-Net-DNS-Dig [...] rt.cpan.org>
From: "Max V. Bouglacoff" <vesemir [...] ymail.com>
Download (untitled) / with headers
text/plain 667b
Hello, I've recently found that qurying 'ebay.com' for ANY makes the module to fall into infinite loop. Here is a code example: ============ use Net::DNS::Dig; my $dig = Net::DNS::Dig->new(); my $rr = $dig->for('ebay.com', 'ANY')->to_text(); foreach my $r (@{$rr->{AUTHORITY}}, @{$rr->{ANSWER}}, @{$rr->{ADDITIONAL}}) {    my $rdata = join(' ', @{$r->{RDATA}});    print "$r->{NAME} $r->{TYPE} $rdata\n"; } ============= Executing this will never return and eat all available memory. Used: Net::DNS 0.73 and Net::DNS::Dig 0.07 Tested on perl 5.12.4 and 5.16.1, recent gentoo x64, modules installed via cpan.   -- respects, Max V. Bouglacoff, MB535-UANIC
Download (untitled) / with headers
text/plain 1.4k
On Mon Dec 09 05:54:12 2013, vesemir wrote: Show quoted text
> Hello, > > I've recently found that qurying 'ebay.com' for ANY makes the module > to fall into infinite loop. > Here is a code example: > ============ > > use Net::DNS::Dig; > > my $dig = Net::DNS::Dig->new(); > my $rr = $dig->for('ebay.com', 'ANY')->to_text(); > foreach my $r (@{$rr->{AUTHORITY}}, @{$rr->{ANSWER}}, @{$rr-
> >{ADDITIONAL}}) {
>    my $rdata = join(' ', @{$r->{RDATA}}); >    print "$r->{NAME} $r->{TYPE} $rdata\n"; > } > > ============= > > Executing this will never return and eat all available memory. > > Used: Net::DNS 0.73 and Net::DNS::Dig 0.07 > > Tested on perl 5.12.4 and 5.16.1, recent gentoo x64, modules installed > via cpan. > >
my results with your code above perl tmp.pl ebay.com. NS ns2.p47.dynect.net. ebay.com. NS smf-dns1.ebaydns.com. ebay.com. NS smf-dns2.ebaydns.com. ebay.com. NS ns1.p47.dynect.net. ebay.com. NS sjc-dns1.ebaydns.com. ebay.com. NS sjc-dns2.ebaydns.com. ebay.com. NS ns2.p47.dynect.net. ebay.com. NS sjc-dns1.ebaydns.com. ebay.com. NS smf-dns2.ebaydns.com. ebay.com. NS smf-dns1.ebaydns.com. ebay.com. NS sjc-dns2.ebaydns.com. ebay.com. NS ns1.p47.dynect.net. ns1.p47.dynect.net. A 208.78.70.47 ns2.p47.dynect.net. A 204.13.250.47 sjc-dns1.ebaydns.com. A 66.135.207.137 sjc-dns2.ebaydns.com. A 66.135.207.138 smf-dns1.ebaydns.com. A 66.135.223.137 smf-dns2.ebaydns.com. A 66.135.215.5 can you provide me with something more to go on? how about a dump of the response array with Data::Dumper Thanks, Michael


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.