diff options
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 20 | ||||
-rwxr-xr-x | Master/tlpkg/bin/archive/svnchangelog (renamed from Master/tlpkg/bin/svnchangelog) | 3 | ||||
-rwxr-xr-x | Master/tlpkg/bin/ctan2tl | 1 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tl-update-bindir | 2 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tl-update-images | 4 |
5 files changed, 24 insertions, 6 deletions
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<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 diff --git a/Master/tlpkg/bin/svnchangelog b/Master/tlpkg/bin/archive/svnchangelog index a46829110de..ed86ff3439a 100755 --- a/Master/tlpkg/bin/svnchangelog +++ b/Master/tlpkg/bin/archive/svnchangelog @@ -3,6 +3,9 @@ # Public domain. Originally written 2004, Karl Berry. # Get change info from svn log. (see now-deleted p4changelog for the # previous code using p4.) +# +# Not used since the beginning of regular commit email: +# https://tug.org/pipermail/tex-live/ umask 0 diff --git a/Master/tlpkg/bin/ctan2tl b/Master/tlpkg/bin/ctan2tl index aad3a1f830e..c2b9c1477e2 100755 --- a/Master/tlpkg/bin/ctan2tl +++ b/Master/tlpkg/bin/ctan2tl @@ -4,6 +4,7 @@ # # Attempt to push a package from CTAN into TL. +renice 20 $$ >&/dev/null unset CDPATH # avoid extraneous output LC_ALL=C; export LC_ALL # avoid problems with diff, comm, etc diff --git a/Master/tlpkg/bin/tl-update-bindir b/Master/tlpkg/bin/tl-update-bindir index dce4dd90160..b7678ba2333 100755 --- a/Master/tlpkg/bin/tl-update-bindir +++ b/Master/tlpkg/bin/tl-update-bindir @@ -3,8 +3,8 @@ # Update a TeX Live Master/bin/PLATFORM directory. vc_id='$Id$' +renice 20 $$ >&/dev/null unset CDPATH -unset GREP_OPTIONS unset LS_COLORS tmpdir=${TMPDIR-/tmp}/tlupbin.$$ diff --git a/Master/tlpkg/bin/tl-update-images b/Master/tlpkg/bin/tl-update-images index e2191c0bb1e..72a9b623835 100755 --- a/Master/tlpkg/bin/tl-update-images +++ b/Master/tlpkg/bin/tl-update-images @@ -16,8 +16,8 @@ V=2019 D=`date +%Y%m%d` target=/home/ftp/texlive/Images/test -renice +19 -p $$ >/dev/null 2>&1 -umask 0 +renice 20 $$ >/dev/null 2>&1 +umask 002 unset CDPATH # avoid output from cd XZ_OPT=-6e; export XZ_OPT # compression level, -9 for slowest-but-most, # which is not worth the (excessive) time. |