diff options
author | Norbert Preining <norbert@preining.info> | 2020-01-03 03:00:55 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2020-01-03 03:00:55 +0000 |
commit | 7e18665e4aef9a8a3a8e42eac34504a9914b15cf (patch) | |
tree | 40a90e8c80f0b6a9e0f8c298ef515f97504fbc3b /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | af7bc18edca6890fb1addbeb6a34672275532e3b (diff) |
CTAN sync 202001030300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm index c7bc216372..92a4aaaffc 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm @@ -1,4 +1,4 @@ -# $Id: TLUtils.pm 53225 2019-12-24 19:19:02Z karl $ +# $Id: TLUtils.pm 53278 2019-12-31 18:46:04Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007-2019 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 53225 $'; +my $svnrev = '$Revision: 53278 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -3602,7 +3602,7 @@ sub process_logging_options { =head2 Miscellaneous -Some ideas from Fabrice Popineau's C<FileUtils.pm>. +A few ideas from Fabrice Popineau's C<FileUtils.pm>. =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<encode_json($ref)> Returns the JSON representation of the object C<$ref> is pointing at. @@ -4562,7 +4568,10 @@ bless $TLFalse, 'TLBOOLEAN'; our $jsonmode = ""; +=pod + =item C<True()> + =item C<False()> These two crazy functions must be used to get proper JSON C<true> 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<tl-update-tlpdb>), the documentation in C<Master/tlpkg/doc/>, etc. =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the +distribution (L<https://tug.org/texlive>) and both are licensed under the GNU General Public License Version 2 or later. =cut |