summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
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;
}