From 9b7ca15e5d9f354810221d580290d26d260df6b8 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 9 Nov 2017 03:24:09 +0000 Subject: add home-made json conversion git-svn-id: svn://tug.org/texlive/trunk@45723 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 0ca7ebb6d19..8dadf1723fd 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -468,6 +468,11 @@ sub as_json { } $foo{'docfiles'} = [ @newdocf ]; delete($foo{'docfiledata'}); + # + # my home-made solution is a bit faster then JSON::PP + # but we still prefer that one for security ;-) + # If JSON::XS is installed, that is the fastest. + #my $utf8_encoded_json_text = TeXLive::TLUtils::hash_to_json(\%foo); my $utf8_encoded_json_text = JSON::encode_json(\%foo); return $utf8_encoded_json_text; } -- cgit v1.2.3