equal
deleted
inserted
replaced
29 my @zone; |
29 my @zone; |
30 my ($origin, $ttl, $last_label, $soa_seen); |
30 my ($origin, $ttl, $last_label, $soa_seen); |
31 |
31 |
32 $_ = ''; |
32 $_ = ''; |
33 foreach (@lines) { |
33 foreach (@lines) { |
34 s{;.*$}{}; # strip trailing comments |
34 # simplificated comment remover |
|
35 # after the comment character no '"' is allowed! |
|
36 s{^\s*;.*$}{}; # strip comment lines |
|
37 s{\s*;[^"]*$}{}; # strip trailing comments |
35 state $line; |
38 state $line; |
36 if (my $range = /(.*)\(\s*$/ .. /(.*)\)\s*/) { |
39 if (my $range = /(.*)\(\s*$/ .. /(.*)\)\s*/) { |
37 $line .= defined $1 ? $1 : $_; |
40 $line .= defined $1 ? $1 : $_; |
38 next unless $range =~ /E0$/; |
41 next unless $range =~ /E0$/; |
39 } |
42 } |