equal
deleted
inserted
replaced
179 $len1 => $r{label}, |
179 $len1 => $r{label}, |
180 $r{ttl}, |
180 $r{ttl}, |
181 $len2 => $r{rrtype}, |
181 $len2 => $r{rrtype}, |
182 $r{data}; |
182 $r{data}; |
183 }; |
183 }; |
184 push @out, '; do NOT EDIT the SOA records SERIAL number!'; |
184 push @out, '; IF YOU EDIT the SOA record, INCREASE the serial number too!'; |
185 push @out, $print->($_) foreach @zone; |
185 push @out, $print->($_) foreach @zone; |
186 return join "\n", @out, ''; |
186 return join "\n", @out, ''; |
187 } |
187 } |
188 |
188 |
189 sub delta { |
189 sub delta { |