https://bugzilla.redhat.com/show_bug.cgi?id=1151572
Bug ID: 1151572
Summary: Runaway rapid memory growth when handling
Net::DNS::Packet
Product: Fedora
Version: 20
Component: perl-Net-DNS
Severity: medium
Assignee: psabata(a)redhat.com
Reporter: john+redhat(a)netservers.co.uk
QA Contact: extras-qa(a)fedoraproject.org
CC: perl-devel(a)lists.fedoraproject.org,
psabata(a)redhat.com, pwouters(a)redhat.com
Description of problem:
When I query the NS records for a certain domain using
Net::DNS::Resolver::Recurse, the perl script gets stuck in a infinite loop,
rapidly expanding in size until it is killed by the OOM killer.
How reproducible:
Can be reproduced every time you query certain domain(s). I've reproduced it on
four different Fedora 20 systems, once of which was a virgin system booted from
the Fedora Live DVD.
The problem does _not_ occur on CentOS/RHEL 6.5 or CentOS/RHEL 7.
Steps to Reproduce:
1. Create a perl script that queries NS records for domain
villamontanavista.co.uk
2. Run the script
3. Watch top and see the script grow in size until the OOM killer steps in.
Actual results:
Perl script devours all available memory until it is killed by OOM Killer
Expected results:
DNS records should be handled by the script and it should exit almost instantly
Additional info:
This perl script will always trigger the bug on Fedora 20:
=========================
#!/usr/bin/perl
use strict;
use Net::DNS;
use Net::DNS::Resolver::Recurse;
use Data::Dumper;
select STDERR; $| = 1;
select STDOUT; $| = 1;
my $res = Net::DNS::Resolver::Recurse->new;
$res->hints();
$res->recursion_callback(sub {
my $packet = shift;
print
"==============\n".Dumper($packet)."\n--------------------\n";
for ($packet->additional){ print $_->string."\n"; }
});
$res->tcp_timeout(10);
$res->udp_timeout(10);
print "Starting recursion\n";
my
$packet=$res->query_dorecursion("villamontanavista.co.uk","NS");
print "Finished recursion\n";
=========================
Some strace output (goes on like this until killed):
brk(0) = 0x18a1000
brk(0x18c2000) = 0x18c2000
brk(0) = 0x18c2000
brk(0x18e3000) = 0x18e3000
brk(0) = 0x18e3000
brk(0x1904000) = 0x1904000
brk(0) = 0x1904000
brk(0x1925000) = 0x1925000
brk(0) = 0x1925000
brk(0x1946000) = 0x1946000
brk(0) = 0x1946000
brk(0x1967000) = 0x1967000
brk(0) = 0x1967000
brk(0x1988000) = 0x1988000
brk(0) = 0x1988000
--
You are receiving this mail because:
You are on the CC list for the bug.
Unsubscribe from this bug
https://bugzilla.redhat.com/token.cgi?t=L3rIiSLBGK&a=cc_unsubscribe