| Subject: | Escaped, unquoted ; is not parsed correctly in TXT records |
Show quoted text
> perl -MData::Dumper -MNet::DNS::ZoneFile::Fast -e'print Dumper
Net::DNS::ZoneFile::Fast::parse(qq{foo IN TXT 12\\;34 ;56})'
$VAR1 = [
bless( {
'ttl' => 0,
'name' => 'foo',
'rdata' => '',
'rdlength' => 0,
'Line' => 1,
'Lines' => 1,
'type' => 'TXT',
'class' => 'IN'
}, 'Net::DNS::RR::TXT' )
];
The fix:
my $pat_skip = qr{\s*(?:(?<!\\);.*)?};