From 1c3cd7877f58e65919bc870f1945be115b5ec2d1 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Thu, 20 Nov 2014 21:33:18 +0100 Subject: [PATCH] Minor pruning of some unused JSON fields. --- Position.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/Position.pm b/Position.pm index b847d10..9333bcd 100644 --- a/Position.pm +++ b/Position.pm @@ -112,7 +112,14 @@ sub fen { sub to_json_hash { my $pos = shift; - my $json = { %$pos, board => undef, prettyprint_cache => undef, fen => $pos->fen() }; + my $json = { %$pos, fen => $pos->fen() }; + delete $json->{'board'}; + delete $json->{'prettyprint_cache'}; + delete $json->{'black_castle_k'}; + delete $json->{'black_castle_q'}; + delete $json->{'white_castle_k'}; + delete $json->{'white_castle_q'}; + delete $json->{'time_since_100move_rule_reset'}; if ($json->{'player_w'} =~ /^base64:(.*)$/) { $json->{'player_w'} = MIME::Base64::decode_base64($1); } -- 2.39.2