Skip Menu |
 

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

Report information
The Basics
Id: 26448
Status: open
Priority: 0/
Queue: DNS-ZoneParse

People
Owner: SIMONFLK [...] cpan.org
Requestors: dreamg [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.95
Fixed in: 0.95



Subject: [Patch] Parse TXT records without quotes
Download (untitled) / with headers
text/plain 568b
--- ZoneParse.pm 2004-10-24 18:55:01.000000000 +0200 +++ /usr/local/share/perl/5.8.8/DNS/ZoneParse.pm 2007-04-17 16:12:57.000000000 +0200 @@ -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 \"?([^\"]*)\"?/ix) { push @{$dns_txt{$self}}, $self -> _massage({ name => $1, ttl => $2, class => $3,
RT-Send-CC: SIMONFLK
Download (untitled) / with headers
text/plain 623b
Sorry, wrong path ... --- /usr/local/share/perl/5.8.8/DNS/ZoneParse.pm 2004-10-24 18:55:01.000000000 +0200 +++ /usr/local/share/perl/5.8.8/DNS/ZoneParse.pm 2007-04-17 16:12:57.000000000 +0200 @@ -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 \"?([^\"]*)\"?/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.