changeset 33 | 7d0fac2ec585 |
parent 27 | c1761a8e9ca9 |
child 53 | 908e41fe9b30 |
--- a/lib/DNS/Vi.pm Thu Nov 13 22:23:04 2014 +0100 +++ b/lib/DNS/Vi.pm Thu Nov 13 23:03:38 2014 +0100 @@ -27,9 +27,9 @@ when (m{^\s*\$ORIGIN\s+(\S+)}) { $origin = $1 } when (m{^\s*\$TTL\s+(\S+)}) { $ttl = $1 } when ( - m{^(?<label>\S+)? - \s+(?<ttl>\d[\dwdmhs]*(?=\s+))? - \s+(?:(?:IN|ANY)\s+)?(?<rrtype>[a-z]\S*(?=\s+)) + m{^(?:(?<label>\S+)(?=\s))? + (?:\s+(?<ttl>\d[\dwdmhs]*(?=\s+)))? + (?:\s+(?:(?:IN|ANY)\s+)?(?<rrtype>[a-z]\S*(?=\s+))) \s+(?<data>.*) }ix )