Skip Menu |
 

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

Report information
The Basics
Id: 96347
Status: new
Priority: 0/
Queue: Net-DNSServer

People
Owner: Nobody in particular
Requestors: bitcard [...] mattkeenan.net
Cc:
AdminCc:

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



Subject: SharedCache (and probably other caches are incorrectly caching OPT records
Download (untitled) / with headers
text/plain 531b
Net::DNSServer::SharedCache.pm is incorrectly storing ephemeral pseudo OPT records; these are required for EDNS and are different from request to request and shouldn't be cached. The patch I have attached fixes SharedCache; a similar patch should probably be applied to N::D::Cache as well. You'll know you have this problem if you see the following error when using SharedCache and EDNS: You should not try to create a OPT RR from a string Not implemented at /usr/local/share/perl/5.18.2/Net/DNSServer/SharedCache.pm line 136.
Subject: dont-cache-opt-records.patch
diff -urN Net-DNSServer-0.11/lib/Net/DNSServer/SharedCache.pm Net-DNSServer-0.12/lib/Net/DNSServer/SharedCache.pm --- Net-DNSServer-0.11/lib/Net/DNSServer/SharedCache.pm 2002-04-08 08:20:48.000000000 +0100 +++ Net-DNSServer-0.12/lib/Net/DNSServer/SharedCache.pm 2014-06-09 21:35:58.094407734 +0100 @@ -169,6 +169,8 @@ my $answer_hash = {}; my $dns_cache = $self -> {dns_cache}; foreach my $rr (@_) { + # don't store ephemeral pseudo type OPT + next if uc $rr->type eq 'OPT'; my $key = join("\t",$rr->name.".",$rr->class,$rr->type); my $rdatastr = $rr->rdatastr(); my $ttl = $rr->ttl();


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.