From dc07b5558440a764dd84a3aeb76caf37999a5944 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Sat, 16 Apr 2022 20:25:09 +0000
Subject: arara (16apr22)

git-svn-id: svn://tug.org/texlive/trunk@63047 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'Build')

diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
index 0c4e48ee843..aeb3b4d732a 100755
--- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
+++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: tlmgr.pl 63018 2022-04-13 00:49:43Z karl $
+# $Id: tlmgr.pl 63033 2022-04-15 05:19:42Z preining $
 #
 # Copyright 2008-2022 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
@@ -7,8 +7,8 @@
 
 use strict; use warnings;
 
-my $svnrev = '$Revision: 63018 $';
-my $datrev = '$Date: 2022-04-13 02:49:43 +0200 (Wed, 13 Apr 2022) $';
+my $svnrev = '$Revision: 63033 $';
+my $datrev = '$Date: 2022-04-15 07:19:42 +0200 (Fri, 15 Apr 2022) $';
 my $tlmgrrevision;
 my $tlmgrversion;
 my $prg;
@@ -640,9 +640,10 @@ for the full story.\n";
   $packagelogged = 0;  # how many msgs we logged
   $commandslogged = 0;
   chomp (my $texmfsysvar = `kpsewhich -var-value=TEXMFSYSVAR`);
+  chomp (my $texmfvar = `kpsewhich -var-value=TEXMFVAR`);
   $packagelogfile = $opts{"package-logfile"};
   if ($opts{"usermode"}) {
-    $packagelogfile ||= "$::maintree/web2c/tlmgr.log";
+    $packagelogfile ||= "$texmfvar/web2c/tlmgr.log";
   } else {
     $packagelogfile ||= "$texmfsysvar/web2c/tlmgr.log";
   }
@@ -659,7 +660,7 @@ for the full story.\n";
   # output of executed commands are put into -command-logfile
   $commandlogfile = $opts{"command-logfile"};
   if ($opts{"usermode"}) {
-    $commandlogfile ||= "$::maintree/web2c/tlmgr-commands.log";
+    $commandlogfile ||= "$texmfvar/web2c/tlmgr-commands.log";
   } else {
     $commandlogfile ||= "$texmfsysvar/web2c/tlmgr-commands.log";
   }
@@ -9652,7 +9653,7 @@ configuration files and/or C<texlive.tlpdb>.
 =head2 User mode logs
 
 In user mode, C<tlmgr.log> and <tlmgr-commands.log> are written in the 
-C<USERTREE/web2c/> directlry instead of C<TEXMFSYSVAR/web2c/>.
+C<TEXMFVAR/web2c/> directlry instead of C<TEXMFSYSVAR/web2c/>.
 
 =head1 MULTIPLE REPOSITORIES
 
@@ -10239,7 +10240,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: tlmgr.pl 63018 2022-04-13 00:49:43Z karl $
+$Id: tlmgr.pl 63033 2022-04-15 05:19:42Z preining $
 =cut
 
 # test HTML version: pod2html --cachedir=/tmp tlmgr.pl >/tmp/tlmgr.html
-- 
cgit v1.2.3