texlive[43799] Master/texmf-dist/scripts/texlive/tlmgr.pl: fix closed

[commits+preining at tug.org]

Revision: 43799
          http://tug.org/svn/texlive?view=revision&revision=43799
Author:   preining
Date:     2017-04-15 02:14:30 +0200 (Sat, 15 Apr 2017)
Log Message:
-----------
fix closed package log file, change debug to tlwarn

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	2017-04-15 00:14:22 UTC (rev 43798)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-04-15 00:14:30 UTC (rev 43799)
@@ -595,8 +595,8 @@
   #
   # Try to open the packagelog file, but do NOT die when that does not work
   if (!open(PACKAGELOG, ">>$packagelogfile")) {
-    debug("Cannot open package log file $packagelogfile for appending\n");
-    debug("Will not log package installation/removal/update for that run\n");
+    tlwarn("Cannot open package log file $packagelogfile for appending\n");
+    tlwarn("Will not log package installation/removal/update for that run\n");
     $packagelogfile = "";
   }
 
@@ -630,6 +630,12 @@
 
   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);
+  }
+
   # F_ERROR stops processing immediately, and prevents postactions from
   # being run (e.g., untar fails).  F_WARNING continues on, including
   # postactions (e.g., user tries to install 10 packages and the
@@ -718,12 +724,6 @@
     $run_post = 0;
   }
 
-  # close the special log file
-  if ($packagelogfile && !$::gui_mode) {
-    info("$prg: package log updated: $packagelogfile\n") if $packagelogged;
-    close(PACKAGELOG);
-  }
-
   return ($ret) if (!$run_post);
 
   # run external programs.
@@ -6519,6 +6519,9 @@
       print give_version(), "\n";
     } elsif ($cmd =~ m/^(quit|end|byebye)$/i) {
       return $F_OK;
+    } elsif ($cmd eq "setup-location") {
+      my $dest = shift @args;
+      print "ERROR not implemented: $cmd\n";
     } elsif ($cmd eq "set") {
       my $key = shift @args;
       my $val = shift @args;