Skip Menu |
 

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

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

People
Owner: Nobody in particular
Requestors: bc-ndzf [...] vicious.dropbear.id.au
Cc:
AdminCc:

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



Subject: Terminating dots replace existing characters.
Download (untitled) / with headers
text/plain 1.3k
Terminating '.'s are applied 'interestingly'. Sample code: use Net::DNS::ZoneFile::Fast; use Net::DNS::RR; my $foo = "example.com SOA joe-bloggs.example.com. ns.example.com ( 1 2 3 4 5 )"; my $list = Net::DNS::ZoneFile::Fast::parse( text => $foo ); foreach my $what( @{$list} ){ print "NDZF: " . $what->string . "\n"; } my $testrr = Net::DNS::RR->new( $foo ); print "NDRS: " . $testrr->string . "\n"; This produces the output below. Note that the MNAME field for Net::DNS::ZoneFile::Fast has had the last 'm' replaced with a '.', but the MNAME in Net::DNS::RR::SOA (0.55) has appended a '.' . NDZF: example.com. 5 IN SOA joe-bloggs.example.com. ns.example.co. ( 1 ; Serial 2 ; Refresh 3 ; Retry 4 ; Expire 5 ) ; Minimum TTL NDRS: example.com. 0 IN SOA joe-bloggs.example.com. ns.example.com. ( 1 ; Serial 2 ; Refresh 3 ; Retry 4 ; Expire 5 ) ; Minimum TTL I'm not sure what Net::DNS::RR::SOA is doing in putting the record's TTL down to 0, but thats a seperate bug. At a quick look, its the calls to chop in parse_soa_number() that are the issue; no checks are being done as to whether the field is properly '.' terminated. --==-- Bruce.
after a long delay in looking at it, I've fixed it for the next release.


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.