Pretty printing of JSON

dikurevy · Oct 9, 2011 · a94806c · a94806c
1 parent e9fe1e8
commit a94806c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/scripts/data.pl b/scripts/data.pl
@@ -105,4 +105,6 @@ sub newact {
 }
 close(FH);
 
-print encode_json $revue
+#print encode_json $revue
+my $coder = JSON::XS->new->utf8->pretty;
+print $coder->encode ($revue);