Skip Menu |
 

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

Report information
The Basics
Id: 46790
Status: resolved
Priority: 0/
Queue: Net-DNS-ZoneFile-Fast

People
Owner: wjhns117 [...] hardakers.net
Requestors: amukherj [...] gmail.com
Cc:
AdminCc:

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



Subject: Bug Report
Date: Tue, 9 Jun 2009 19:40:38 +0530
To: bug-Net-DNS-ZoneFile-Fast [...] rt.cpan.org
From: Anirban Mukherjee <amukherj [...] gmail.com>
Download (untitled) / with headers
text/plain 1.4k
Distribution: perl-Net-DNS-ZoneFile-Fast-0.91-1.el5.rf Perl version: v5.8.8 built for x86_64-linux-thread-multi OS: Linux ... 2 2.6.18-92.1.22.el5 #1 SMP ... x86_64 x86_64 x86_64 GNU/Linux Description: RRSIG and NSEC records not being parsed correctly for a signed root zone file Instructions to reproduce: 1. Download the signed root zone file from IANA testbed i.e. https://ns.iana.org/dnssec/root.zone.signed 2. Create a file test.pl in the same directory with the below contents. Provide execute permissions. #!/usr/bin/perl use Net::DNS::ZoneFile::Fast; my $zonefile = $ARGV[0]; my $rrlist = Net::DNS::ZoneFile::Fast::parse(file=>$zonefile); 3. Run the program $ ./test.pl root.zone.signed Error Message: bad rrsig second line, line 11 ...propagated at /usr/lib/perl5/vendor_perl/5.8.8/Net/DNS/ZoneFile/Fast.pm line 149, <GEN0> line 11. More details: This is with reference to http://cpansearch.perl.org/src/HARDAKER/Net-DNS-ZoneFile-Fast-1.11/Fast.pm Changing the following lines as indicated below allows the above program to work fine. Line 749 : } elsif (/\G(\d+)\s+(\d+)\s+($pat_maybefullname)\s+([^=]+=)\s*/gc) { => } elsif (/\G(\d+)\s+(\d+)\s+($pat_maybefullnameorroot)\s+([^=]+=)\s*/gc) { Line 817: if (/\G\s*($pat_maybefullname)\s+(.*)$pat_skip$/gc) { => if (/\G\s*($pat_maybefullnameorroot)\s+(.*)$pat_skip$/gc) { Line 1031: if (/\G\s*(\d+)\s+(\d+)\s+($pat_maybefullname)/gc) { => if (/\G\s*(\d+)\s+(\d+)\s+($pat_maybefullnameorroot)/gc) {
Download (untitled) / with headers
text/plain 128b
Thanks for a perfect bug report with a perfect patch. Your patch has been applied and will be in a new release to CPAN shortly.


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.