equal
deleted
inserted
replaced
95 $rrset{data} =~ s/\@/$origin/g; |
95 $rrset{data} =~ s/\@/$origin/g; |
96 $rrset{data} .= ".$origin" |
96 $rrset{data} .= ".$origin" |
97 unless substr($rrset{data}, -1) eq '.'; |
97 unless substr($rrset{data}, -1) eq '.'; |
98 } |
98 } |
99 } |
99 } |
100 my $id = sha512_hex(join "\0", sort %rrset); |
100 my $id = sha512_hex(join "\0", map { $_ => $rrset{$_} } sort keys %rrset); |
101 push @zone, { id => $id, rrset => \%rrset }; |
101 push @zone, { id => $id, rrset => \%rrset }; |
102 ### x: $zone[-1] |
102 ### x: $zone[-1] |
103 } |
103 } |
104 } |
104 } |
105 } |
105 } |