summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm20
-rwxr-xr-xMaster/tlpkg/bin/archive/svnchangelog (renamed from Master/tlpkg/bin/svnchangelog)3
-rwxr-xr-xMaster/tlpkg/bin/ctan2tl1
-rwxr-xr-xMaster/tlpkg/bin/tl-update-bindir2
-rwxr-xr-xMaster/tlpkg/bin/tl-update-images4
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.