| changeset 27 | c1761a8e9ca9 |
| parent 24 | 6d79c81a2931 |
| child 33 | 7d0fac2ec585 |
| 26:ca2fe4505294 | 27:c1761a8e9ca9 |
|---|---|
74 $rrset{data} =~ s/\@/$origin/g; |
74 $rrset{data} =~ s/\@/$origin/g; |
75 $rrset{data} .= ".$origin" |
75 $rrset{data} .= ".$origin" |
76 unless substr($rrset{data}, -1) eq '.'; |
76 unless substr($rrset{data}, -1) eq '.'; |
77 } |
77 } |
78 } |
78 } |
79 my $id = sha512_hex(sort %rrset); |
79 my $id = sha512_hex(join "\0", sort %rrset); |
80 push @zone, { id => $id, rrset => \%rrset }; |
80 push @zone, { id => $id, rrset => \%rrset }; |
81 } |
81 } |
82 } |
82 } |
83 } |
83 } |
84 |
84 |