summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/install-tl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-01-29 03:01:04 +0000
committerNorbert Preining <norbert@preining.info>2024-01-29 03:01:04 +0000
commit6c43653052d016d5913aabb728c484f0e62b4754 (patch)
tree86463762682ace059db9efb216a1a4f0ad773688 /systems/texlive/tlnet/install-tl
parent7084e3008c8fc947579f46c6b8a08dfd180e72ef (diff)
CTAN sync 202401290301
Diffstat (limited to 'systems/texlive/tlnet/install-tl')
-rwxr-xr-xsystems/texlive/tlnet/install-tl55
1 files changed, 16 insertions, 39 deletions
diff --git a/systems/texlive/tlnet/install-tl b/systems/texlive/tlnet/install-tl
index fc17edb519..82fcbb8b44 100755
--- a/systems/texlive/tlnet/install-tl
+++ b/systems/texlive/tlnet/install-tl
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: install-tl 69327 2024-01-07 11:10:51Z preining $
+# $Id: install-tl 69614 2024-01-27 22:48:16Z karl $
# Copyright 2007-2023
# Reinhard Kotucha, Norbert Preining, Karl Berry, Siep Kroonenberg.
# This file is licensed under the GNU General Public License version 2
@@ -12,7 +12,7 @@
use strict; use warnings;
-my $svnrev = '$Revision: 69327 $';
+my $svnrev = '$Revision: 69614 $';
$svnrev =~ m/: ([0-9]+) /;
$::installerrevision = ($1 ? $1 : 'unknown');
@@ -1161,21 +1161,8 @@ sub do_installation {
sub run_postinst_cmd {
my ($cmd) = @_;
-
- info ("running $cmd ...");
- my ($out,$ret) = TeXLive::TLUtils::run_cmd ("$cmd 2>&1");
- if ($ret == 0) {
- info ("done\n");
- } else {
- info ("failed\n");
- tlwarn ("$0: $cmd failed (status $ret): $!\n");
- $ret = 1; # be sure we don't overflow the sum on anything crazy
- }
- log ($out);
-
- return $ret;
-} # run_postinst_cmd
-
+ &TeXLive::TLUtils::run_cmd_with_log ($cmd, \&log);
+}
#
# Make texmf.cnf, backup directory, cleanups, path setting, and
@@ -1351,22 +1338,15 @@ operations might be disturbed.\n\n";
}
}
- # lmtx/context setup. The story here is that in 2023, the lmtx binary
- # for x86_64-linux was too new to run on the system where we build TL.
- # (luametatex: /lib64/libm.so.6: version `GLIBC_2.23' not found)
- # So we have to try running it to see it succeeds, not just test for
- # the program's existence. And since it exits nonzero given no args,
- # we have to specify --version. Hope it keeps working like that ...
- my $lmtx = "$plat_bindir/luametatex$progext";
+ # lmtx/context cache setup, relegated to a common subroutine
+ # that tlmgr can also call.
if (exists($install{"context"}) && $install{"context"} == 1
- && !exists $ENV{"TEXLIVE_INSTALL_NO_CONTEXT_CACHE"}
- && TeXLive::TLUtils::system_ok("$lmtx --version")
- ) {
- info("setting up ConTeXt cache: ");
- $errcount += run_postinst_cmd("mtxrun --generate");
- $errcount += run_postinst_cmd("context --luatex --generate");
+ && !exists $ENV{"TEXLIVE_INSTALL_NO_CONTEXT_CACHE"}) {
+ $errcount +=
+ TeXLive::TLUtils::update_context_cache($plat_bindir, $progext,
+ \&run_postinst_cmd);
} else {
- debug("skipped ConTeXt cache setup\n");
+ debug("skipped ConTeXt cache setup, not installed or told not to\n");
}
# all formats option
@@ -2832,21 +2812,18 @@ EOF
# Create a welcome message.
sub create_welcome {
@::welcome_arr = ();
- push @::welcome_arr, "\n";
push @::welcome_arr, __("Welcome to TeX Live!");
- push @::welcome_arr, "\n";
- push @::welcome_arr, __(
- "See %s/index.html for links to documentation.\nThe TeX Live web site (https://tug.org/texlive/) contains any updates and corrections. TeX Live is a joint project of the TeX user groups around the world; please consider supporting it by joining the group best for you. The list of groups is available on the web at https://tug.org/usergroups.html.",
- $::vars{'TEXDIR'});
+ push @::welcome_arr, __("See %s/index.html for links to documentation.\n",
+ $::vars{'TEXDIR'});
+ push @::welcome_arr, __("The TeX Live web site (https://tug.org/texlive/) provides all updates\nand corrections. TeX Live is a joint project of the TeX user groups\naround the world; please consider supporting it by joining the group\nbest for you. The list of groups is available on the web\nat https://tug.org/usergroups.html.\n");
if (wndws()
|| ($vars{'instopt_adjustpath'}
&& $vars{'tlpdbopt_desktop_integration'} != 2)) {
; # don't tell them to make path adjustments on Windows,
# or if they chose to "create symlinks".
} else {
- push @::welcome_arr, "\n";
push @::welcome_arr, __(
- "Add %s/texmf-dist/doc/man to MANPATH.\nAdd %s/texmf-dist/doc/info to INFOPATH.\nMost importantly, add %s/bin/%s\nto your PATH for current and future sessions.",
+ "Add %s/texmf-dist/doc/man to MANPATH.\nAdd %s/texmf-dist/doc/info to INFOPATH.\nMost importantly, add %s/bin/%s\nto your PATH for current and future sessions.\n",
$::vars{'TEXDIR'}, $::vars{'TEXDIR'}, $::vars{'TEXDIR'},
$::vars{'this_platform'});
}
@@ -3605,7 +3582,7 @@ This script and its documentation were written for the TeX Live
distribution (L<https://tug.org/texlive>) and both are licensed under the
GNU General Public License Version 2 or later.
-$Id: install-tl 69327 2024-01-07 11:10:51Z preining $
+$Id: install-tl 69614 2024-01-27 22:48:16Z karl $
=cut
# to remake HTML version: pod2html --cachedir=/tmp install-tl >/tmp/itl.html