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

[commits+preining at tug.org]

Revision: 59291
          http://tug.org/svn/texlive?view=revision&revision=59291
Author:   preining
Date:     2021-05-21 05:14:40 +0200 (Fri, 21 May 2021)
Log Message:
-----------
tlmgr: fix gui-lang setting in config file not honored

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-05-20 23:46:53 UTC (rev 59290)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2021-05-21 03:14:40 UTC (rev 59291)
@@ -398,6 +398,10 @@
 
   GetOptions(\%opts, keys(%optarg)) or pod2usage(2);
 
+  # load the config file and set the config options
+  # load it BEFORE starting downloads as we set persistent-downloads there!
+  load_config_file();
+
   $::debug_translation = 0;
   $::debug_translation = 1 if $opts{"debug-translation"};
 
@@ -422,7 +426,7 @@
 
   ddebug("action = $action\n");
   for my $k (keys %opts) {
-    ddebug("$k => $opts{$k}\n");
+    ddebug("$k => " . (defined($opts{$k}) ? $opts{$k} : "(undefined)") . "\n");
   }
   ddebug("arguments: @ARGV\n") if @ARGV;
 
@@ -669,10 +673,6 @@
 
   $loadmediasrcerror = "Cannot load TeX Live database from ";
 
-  # load the config file and set the config options
-  # load it BEFORE starting downloads as we set persistent-downloads there!
-  load_config_file();
-
   # in system mode verify that the selected action is allowed
   if (!$opts{"usermode"} && $config{'allowed-actions'}) {
     if (!TeXLive::TLUtils::member($action, @{$config{'allowed-actions'}})) {