From 29c61301dc7961e86e8fa86219ea4d67f8eb6618 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Oct 2021 02:24:25 +0000 Subject: tlmgr/perl: Use TEXMFROOT instead of SELFAUTOPARENT (from Daniel Nachun, homebrew) git-svn-id: svn://tug.org/texlive/trunk@60693 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 2 +- Master/tlpkg/TeXLive/TLUtils.pm | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index f807a8c7c71..a2ac2462930 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -63,7 +63,7 @@ BEGIN { } 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, diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index e1c07b227b2..1b162d7c5bc 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1753,7 +1753,7 @@ sub _do_postaction_filetype { } 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 @@ sub _do_postaction_script { 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 @@ sub _do_postaction_shortcut { &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/!; -- cgit v1.2.3