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.