lib/DNS/Vi.pm
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
               )