From 9cf015b0509e5eac51b7de4fac5af14e6cca3eb8 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 31 Dec 2019 18:46:04 +0000 Subject: renice, doc, archive old script git-svn-id: svn://tug.org/texlive/trunk@53278 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLUtils.pm') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 1c33a0d04ef..b038abecf28 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3602,7 +3602,7 @@ sub process_logging_options { =head2 Miscellaneous -Some ideas from Fabrice Popineau's C. +A few ideas from Fabrice Popineau's C. =over 4 @@ -4470,7 +4470,7 @@ sub setup_sys_user_mode { print STDERR "" . "$prg [ERROR]: Either -sys or -user mode is required.\n" . "$prg [ERROR]: In nearly all cases you should use $prg -sys.\n" . - "$prg [ERROR]: For special cases see http://tug.org/texlive/scripts-sys-user.html\n" ; + "$prg [ERROR]: For special cases see https://tug.org/texlive/scripts-sys-user.html\n" ; exit(1); } return ($texmfconfig, $texmfvar); @@ -4540,6 +4540,12 @@ sub repository_to_array { } +=back + +=head2 JSON + +=over 4 + =item C Returns the JSON representation of the object C<$ref> is pointing at. @@ -4562,7 +4568,10 @@ bless $TLFalse, 'TLBOOLEAN'; our $jsonmode = ""; +=pod + =item C + =item C These two crazy functions must be used to get proper JSON C and @@ -4710,8 +4719,13 @@ sub array_to_json { my $ret = "[" . join(",", map { encode_json(\$_) } @$hr) . "]"; return($ret); } + +=pod + =back + =cut + 1; __END__ @@ -4724,7 +4738,7 @@ C), the documentation in C, etc. =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L) and both are licensed under the +distribution (L) and both are licensed under the GNU General Public License Version 2 or later. =cut -- cgit v1.2.3