canonicalise JSON output and sort entities deterministically so we ge…

…t smaller diffs
gbxyz · Jul 26, 2023 · 2969887 · 2969887
1 parent f2c69e2
commit 2969887
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/rootrdap.pl b/rootrdap.pl
@@ -34,7 +34,7 @@
 
 my $ua = LWP::UserAgent->new('agent' => sprintf('%s/%s', basename(__FILE__, '.pl'), $VERSION));
 
-my $json = JSON->new->pretty;
+my $json = JSON->new->pretty->canonical;
 
 my $list = join('/', $dir, basename(TLD_LIST));
 
@@ -339,7 +339,7 @@
     #
     # insert entities
     #
-    $data->{'entities'} = [ values(%{$entities}) ];
+    $data->{'entities'} = [map { $entities->{$_} } sort(keys(%{$entities}))];
 
     #
     # write RDAP object to disk