texlive[58950] Master/texmf-dist/scripts/texlive/tlmgr.pl: tlmgr:
commits+preining at tug.org
commits+preining at tug.org
Thu Apr 22 02:44:52 CEST 2021
Revision: 58950
http://tug.org/svn/texlive?view=revision&revision=58950
Author: preining
Date: 2021-04-22 02:44:52 +0200 (Thu, 22 Apr 2021)
Log Message:
-----------
tlmgr: inform if commands.log is updated.
Modified Paths:
--------------
trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2021-04-22 00:44:46 UTC (rev 58949)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2021-04-22 00:44:52 UTC (rev 58950)
@@ -24,6 +24,7 @@
our $loadmediasrcerror;
our $packagelogfile;
our $packagelogged;
+our $commandslogged;
our $commandlogfile;
our $tlmgr_config_file;
our $pinfile;
@@ -632,6 +633,7 @@
# package related actions (install, remove, update) to
# the package-log file TEXMFSYSVAR/web2c/tlmgr.log
$packagelogged = 0; # how many msgs we logged
+ $commandslogged = 0;
chomp (my $texmfsysvar = `kpsewhich -var-value=TEXMFSYSVAR`);
$packagelogfile = $opts{"package-logfile"};
if ($opts{"usermode"}) {
@@ -699,9 +701,15 @@
my $ret = execute_action($action, @ARGV);
# close the special log file
- if ($packagelogfile && !$::gui_mode) {
- info("$prg: package log updated: $packagelogfile\n") if $packagelogged;
- close(PACKAGELOG);
+ if (!$::gui_mode) {
+ if ($packagelogfile) {
+ info("$prg: package log updated: $packagelogfile\n") if $packagelogged;
+ close(PACKAGELOG);
+ }
+ if ($commandlogfile) {
+ info("$prg: command log updated: $commandlogfile\n") if $commandslogged;
+ close(COMMANDLOG);
+ }
}
# F_ERROR stops processing immediately, and prevents postactions from
@@ -7512,6 +7520,7 @@
}
sub logcommand {
if ($commandlogfile) {
+ $commandslogged++;
my $tim = localtime();
print COMMANDLOG "[$tim] @_\n";
}
More information about the tex-live-commits
mailing list.