--- a/lib/DNS/Vi.pm	Thu Jun 05 08:59:16 2014 +0200
+++ b/lib/DNS/Vi.pm	Thu Jun 05 18:02:26 2014 +0200
@@ -76,7 +76,7 @@
                           unless substr($rrset{data}, -1) eq '.';
                     }
                 }
-                my $id = sha512_hex(sort %rrset);
+                my $id = sha512_hex(join "\0", sort %rrset);
                 push @zone, { id => $id, rrset => \%rrset };
             }
         }