Canonicalize output JSON, so that we do not waste bandwidth with empty diffs.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index 9cc82e318fd3b79d617c2128ac3418647a8ce35c..3c12569a2aa261667687fdfb9ca12da9746ffbe0 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -774,7 +774,9 @@ sub output_json {
        }
        $json->{'refutation_lines'} = \%refutation_lines;
 
-       my $encoded = JSON::XS::encode_json($json);
+       my $json_enc = JSON::XS->new;
+       $json_enc->canonical(1);
+       my $encoded = $json_enc->encode($json);
        unless ($historic_json_only || !defined($remoteglotconf::json_output) ||
                (defined($last_written_json) && $last_written_json eq $encoded)) {
                atomic_set_contents($remoteglotconf::json_output, $encoded);