| Subject: | [patch] parse TXT records with extraneous parens |
--- 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,