texlive[58950] Master/texmf-dist/scripts/texlive/tlmgr.pl: tlmgr:

[commits+preining at tug.org]

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";
   }