File texlive-scripts_scripts.dif of Package texlive-specs-w
---
texmf-dist/scripts/texlive/fmtutil-sys.sh | 1 +
texmf-dist/scripts/texlive/fmtutil.pl | 29 +++++++++++++++++++++--------
texmf-dist/scripts/texlive/mktexlsr.pl | 9 +++++++--
texmf-dist/scripts/texlive/updmap-sys.sh | 1 +
texmf-dist/scripts/texlive/updmap.pl | 18 ++++++++++--------
5 files changed, 40 insertions(+), 18 deletions(-)
--- texmf-dist/scripts/texlive/fmtutil-sys.sh
+++ texmf-dist/scripts/texlive/fmtutil-sys.sh 2018-05-11 10:51:14.298775065 +0000
@@ -22,4 +22,5 @@ PATH="$mydir:$PATH"; export PATH
# hack around a bug in zsh:
test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
+umask 022
exec fmtutil --sys ${1+"$@"}
--- texmf-dist/scripts/texlive/fmtutil.pl
+++ texmf-dist/scripts/texlive/fmtutil.pl 2026-03-31 10:39:20.826995472 +0000
@@ -11,7 +11,7 @@
# Original shell script 2001 Thomas Esser, public domain
use strict; use warnings;
-my $TEXMFROOT;
+my $TEXMFDIST;
BEGIN {
$^W = 1;
@@ -30,14 +30,14 @@ BEGIN {
$Master = "$Master/../..";
}
$ENV{"PATH"} = "$bindir:$ENV{PATH}";
- $TEXMFROOT = `kpsewhich -var-value=TEXMFROOT`;
- if ($? || ! $TEXMFROOT) {
- warn "$0: kpsewhich -var-value=TEXMFROOT failed, aborting early.\n";
- warn "$0: got TEXMFROOT value: $TEXMFROOT" if $TEXMFROOT;
+ $TEXMFDIST = `kpsewhich -var-value=TEXMFDIST`;
+ if ($? || ! $TEXMFDIST) {
+ warn "$0: kpsewhich -var-value=TEXMFDIST failed, aborting early.\n";
+ warn "$0: got TEXMFDIST value: $TEXMFDIST" if $TEXMFDIST;
die "$0: had PATH: $ENV{PATH}\n";
}
- chomp($TEXMFROOT);
- unshift(@INC, "$TEXMFROOT/tlpkg", "$TEXMFROOT/texmf-dist/scripts/texlive");
+ chomp($TEXMFDIST);
+ unshift(@INC, "$TEXMFDIST/tlpkg", "$TEXMFDIST/scripts/texlive");
require "mktexlsr.pl";
TeX::Update->import();
}
@@ -94,7 +94,7 @@ TeXLive::TLUtils::prepend_own_path();
# this function checks by itself whether it is running on windows or not
reset_root_home();
-chomp(our $TEXMFDIST = `kpsewhich --var-value=TEXMFDIST`);
+chomp(our $TEXMFROOT = `kpsewhich --var-value=TEXMFROOT`);
chomp(our $TEXMFVAR = `kpsewhich -var-value=TEXMFVAR`);
chomp(our $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`);
chomp(our $TEXMFCONFIG = `kpsewhich -var-value=TEXMFCONFIG`);
@@ -437,7 +437,14 @@ sub callback_build_formats {
TeXLive::TLWinGoo::maybe_make_ro ($tmpdir);
}
} else {
+ my ($uid, $gid);
$tmpdir = File::Temp::tempdir(CLEANUP => 1);
+ if ($> == 0 && ($uid=getpwnam("mktex")) && ($gid=getgrnam("mktex"))) {
+ my $cnt = chown $uid, $gid, $tmpdir;
+ die "could not create directory $tmpdir" if $cnt <= 0;
+ $cnt = chmod 0770, $tmpdir;
+ die "could not create directory $tmpdir" if $cnt <= 0;
+ }
}
}
# set up destination directory
@@ -758,6 +765,7 @@ sub rebuild_one_format {
# check for existence of ini file before doing anything else
if (system("kpsewhich -progname=$fmt -format=$kpsefmt $inifile >$nul 2>&1") != 0) {
# we didn't find the ini file, skip
+ return $FMT_NOTAVAIL if (!$opts{'no-error-if-no-engine'});
print_deferred_warning("inifile $inifile for $fmt/$eng not found.\n");
# The original script just skipped it but in TeX Live we expect that
# all activated formats are also buildable, thus return failure.
@@ -825,6 +833,7 @@ sub rebuild_one_format {
&& ",$opts{'no-error-if-no-engine'}," =~ m/,$eng,/) {
return $FMT_NOTAVAIL;
} else {
+ return $FMT_NOTAVAIL if (!$opts{'no-error-if-no-engine'});
print_deferred_error("not building $fmt due to missing engine: $eng\n");
# could be irrelevant if PATH didn't contain ., and won't find
# other cases like the engine being in .., but it's just a help message,
@@ -846,6 +855,10 @@ END_ENGINE_IN_CWD
}
}
+ if ($ENV{batchmode} and $ENV{batchmode} eq "yes") {
+ $texargs="\\batchmode \\input $texargs" if $eng eq "tex" || $eng eq "ptex";
+ }
+
my $cmdline = "$eng -ini $tcxflag $recorderswitch $jobswitch "
. "$prgswitch $texargs";
print_verbose("running \`$cmdline' ...\n");
--- texmf-dist/scripts/texlive/mktexlsr.pl
+++ texmf-dist/scripts/texlive/mktexlsr.pl 2022-04-25 10:55:36.506971390 +0000
@@ -126,6 +126,7 @@ package TeX::LSR;
use Cwd;
use File::Spec::Functions;
use File::Find;
+use File::Basename;
=pod
@@ -354,8 +355,12 @@ sub write {
$self->setup_filename();
$fn = catfile($self->{'root'}, $self->{'filename'});
}
+ if (! -e $fn && ! -w dirname($fn)) {
+ warn "TeX::LSR: ls-R file does not exists, skipping: $fn\n" if $opt_verbose;
+ return 0;
+ }
if (-e $fn && ! -w $fn) {
- warn "TeX::LSR: ls-R file not writable, skipping: $fn\n";
+ warn "TeX::LSR: ls-R file not writable, skipping: $fn\n" if $opt_verbose;
return 0;
}
open (LSR, ">$fn") || die "TeX::LSR writable but cannot open??; $!";
@@ -636,7 +641,7 @@ sub main {
$lsr->write(sort => $opt_sort);
}
} else {
- warn "$prg: cannot read files, skipping: $t\n";
+ warn "$prg: cannot read files, skipping: $t\n" if $opt_verbose;
}
}
print "$prg: Done.\n" if $opt_verbose;
--- texmf-dist/scripts/texlive/updmap-sys.sh
+++ texmf-dist/scripts/texlive/updmap-sys.sh 2018-05-11 10:53:43.971984421 +0000
@@ -22,4 +22,5 @@ PATH="$mydir:$PATH"; export PATH
# hack around a bug in zsh:
test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"'
+umask 022
exec updmap --sys ${1+"$@"}
--- texmf-dist/scripts/texlive/updmap.pl
+++ texmf-dist/scripts/texlive/updmap.pl 2026-03-31 10:41:55.364140784 +0000
@@ -17,7 +17,7 @@ my $svnid = '$Id: updmap.pl 78104 2026-0
use strict; use warnings;
-my $TEXMFROOT;
+my $TEXMFDIST;
BEGIN {
$^W = 1;
# make subprograms (including kpsewhich) have the right path:
@@ -35,14 +35,14 @@ BEGIN {
$Master = "$Master/../..";
}
$ENV{"PATH"} = "$bindir:$ENV{PATH}";
- $TEXMFROOT = `kpsewhich -var-value=TEXMFROOT`;
- if ($? || ! $TEXMFROOT) {
- warn "$0: kpsewhich -var-value=TEXMFROOT failed, aborting early.\n";
- warn "$0: got TEXMFROOT value: $TEXMFROOT" if $TEXMFROOT;
+ $TEXMFDIST = `kpsewhich -var-value=TEXMFDIST`;
+ if ($? || ! $TEXMFDIST) {
+ warn "$0: kpsewhich -var-value=TEXMFDIST failed, aborting early.\n";
+ warn "$0: got TEXMFDIST value: $TEXMFDIST" if $TEXMFDIST;
die "$0: had PATH: $ENV{PATH}\n";
}
- chomp($TEXMFROOT);
- unshift(@INC, "$TEXMFROOT/tlpkg");
+ chomp($TEXMFDIST);
+ unshift(@INC, "$TEXMFDIST/tlpkg");
}
my $lastchdate = '$Date: 2026-02-24 17:08:16 +0100 (Tue, 24 Feb 2026) $';
@@ -64,7 +64,7 @@ use TeXLive::TLUtils qw(mkdirhier mktexu
# see more comments at the definition of this function.
reset_root_home();
-chomp(my $TEXMFDIST = `kpsewhich --var-value=TEXMFDIST`);
+chomp(my $TEXMFROOT = `kpsewhich --var-value=TEXMFROOT`);
chomp(my $TEXMFVAR = `kpsewhich -var-value=TEXMFVAR`);
chomp(my $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`);
chomp(my $TEXMFCONFIG = `kpsewhich -var-value=TEXMFCONFIG`);
@@ -420,6 +420,8 @@ sub main {
print "in $changes_config_file\n";
print "Do you really want to continue (y/N)? ";
my $answer = <STDIN>;
+ my $dosync = $ENV{'UPDMAPSYNC'};
+ $answer = "y" if !defined($dosync);
$answer = "n" if !defined($answer);
chomp($answer);
print "answer =$answer=\n";
