equal
deleted
inserted
replaced
25 given ($_) { |
25 given ($_) { |
26 when (m{^\s*$}) { next } |
26 when (m{^\s*$}) { next } |
27 when (m{^\s*\$ORIGIN\s+(\S+)}) { $origin = $1 } |
27 when (m{^\s*\$ORIGIN\s+(\S+)}) { $origin = $1 } |
28 when (m{^\s*\$TTL\s+(\S+)}) { $ttl = $1 } |
28 when (m{^\s*\$TTL\s+(\S+)}) { $ttl = $1 } |
29 when ( |
29 when ( |
30 m{^(?<label>\S+)? |
30 m{^(?:(?<label>\S+)(?=\s))? |
31 \s+(?<ttl>\d[\dwdmhs]*(?=\s+))? |
31 (?:\s+(?<ttl>\d[\dwdmhs]*(?=\s+)))? |
32 \s+(?:(?:IN|ANY)\s+)?(?<rrtype>[a-z]\S*(?=\s+)) |
32 (?:\s+(?:(?:IN|ANY)\s+)?(?<rrtype>[a-z]\S*(?=\s+))) |
33 \s+(?<data>.*) |
33 \s+(?<data>.*) |
34 }ix |
34 }ix |
35 ) |
35 ) |
36 { |
36 { |
37 my %rrset = ( |
37 my %rrset = ( |