summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-10-15 00:47:23 +0000
committerNorbert Preining <preining@logic.at>2017-10-15 00:47:23 +0000
commitdc82862df05cc9db02ef403288acb689d4578651 (patch)
treeb42a6f0dcaad2316c187fde2ccbd7707131a3b34 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent3d992315224b02439b839e29204a9090fc42f6b4 (diff)
add install/available keys to JSON output, deal with unavailable packages
git-svn-id: svn://tug.org/texlive/trunk@45543 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 3e603bc99a3..95c5adeffbf 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -422,6 +422,7 @@ sub writeout_simple {
sub as_json {
my $self = shift;
+ my %addargs = @_;
require JSON;
#my $json = JSON::PP->new->utf8;
my %foo = %{$self};
@@ -441,6 +442,10 @@ sub as_json {
$foo{'relocated'} = $JSON::false;
}
}
+ # set the additional args
+ for my $k (keys %addargs) {
+ $foo{$k} = $addargs{$k};
+ }
my $utf8_encoded_json_text = JSON::encode_json(\%foo); # $json->encode(\%foo);
return $utf8_encoded_json_text;
}