Skip Menu |
 

This queue is for tickets about the DNS-ZoneParse CPAN distribution.

Report information
The Basics
Id: 15081
Status: new
Priority: 0/
Queue: DNS-ZoneParse

People
Owner: Nobody in particular
Requestors: ivan-cpan-rt [...] 420.am
Cc:
AdminCc:

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



Subject: [patch] parse TXT records with extraneous parens
Download (untitled) / with headers
text/plain 613b
--- libdns-zoneparse-perl-0.95-1/lib/DNS/ZoneParse.pm 2004-10-24 09:55:01.000000000 -0700 +++ libdns-zoneparse-perl-0.95/lib/DNS/ZoneParse.pm 2005-10-16 05:01:48.000000000 -0700 @@ -269,7 +269,7 @@ $self -> _massage({ name => $1, class => $3, ttl => $2, host => $4 }); } - elsif (/($valid_name)? \s $ttl_cls TXT \s \"([^\"]*)\"/ix) + elsif (/($valid_name)? \s $ttl_cls TXT \s \(?\s? \"([^\"]*)\" \s?\)?/ix) { push @{$dns_txt{$self}}, $self -> _massage({ name => $1, ttl => $2, class => $3,


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.