use encode, not to_json

diff --git a/archives/bin/generate-list-descriptions b/archives/bin/generate-list-descriptions
index 565989dbc5e1cddde9b2c5d440e6ad94f812a25e..a3312260790a2b8e60a86c4e8f70d410ea3a8a22 100755 (executable)
--- a/archives/bin/generate-list-descriptions
+++ b/archives/bin/generate-list-descriptions
@@ -66,7 +66,7 @@ sub writefile {
 
        my $tmpfile = "$filename.new";
        if (open TMPOUT, ">", $tmpfile) {
-               print TMPOUT $json->to_json($data);
+               print TMPOUT $json->encode($data);
                close TMPOUT;
                rename $tmpfile, $filename;
        }