texlive[60693] Master: tlmgr/perl: Use TEXMFROOT instead of
commits+preining at tug.org
commits+preining at tug.org
Mon Oct 4 04:24:26 CEST 2021
Revision: 60693
http://tug.org/svn/texlive?view=revision&revision=60693
Author: preining
Date: 2021-10-04 04:24:25 +0200 (Mon, 04 Oct 2021)
Log Message:
-----------
tlmgr/perl: Use TEXMFROOT instead of SELFAUTOPARENT (from Daniel Nachun, homebrew)
Modified Paths:
--------------
trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
trunk/Master/tlpkg/TeXLive/TLUtils.pm
Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2021-10-03 23:48:46 UTC (rev 60692)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2021-10-04 02:24:25 UTC (rev 60693)
@@ -63,7 +63,7 @@
}
if (-r "$bindir/$kpsewhichname") {
# if not in bootstrapping mode => kpsewhich exists, so use it to get $Master
- chomp($Master = `kpsewhich -var-value=SELFAUTOPARENT`);
+ chomp($Master = `kpsewhich -var-value=TEXMFROOT`);
}
# if we have no directory in which to find our modules,
Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm 2021-10-03 23:48:46 UTC (rev 60692)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm 2021-10-04 02:24:25 UTC (rev 60693)
@@ -1753,7 +1753,7 @@
}
my $cmd = $keyval{'cmd'};
- my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`;
+ my $texdir = `kpsewhich -var-value=TEXMFROOT`;
chomp($texdir);
my $texdir_bsl = conv_to_w32_path($texdir);
$cmd =~ s!^("?)TEXDIR/!$1$texdir/!g;
@@ -1828,7 +1828,7 @@
if (win32() && defined($keyval{'filew32'})) {
$file = $keyval{'filew32'};
}
- my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`;
+ my $texdir = `kpsewhich -var-value=TEXMFROOT`;
chomp($texdir);
my @syscmd;
if ($file =~ m/\.pl$/i) {
@@ -1903,7 +1903,7 @@
&log("postaction $how shortcut for " . $tlpobj->name . "\n");
if ($how eq "install") {
- my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`;
+ my $texdir = `kpsewhich -var-value=TEXMFROOT`;
chomp($texdir);
my $texdir_bsl = conv_to_w32_path($texdir);
$icon =~ s!^TEXDIR/!$texdir/!;
More information about the tex-live-commits
mailing list.