evaluate the --load option properly, and use $mw->update

git-svn-id: svn://tug.org/texlive/trunk@16160 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 11 insertions, 2 deletions

diff --git a/Master/tlpkg/dev/tlmgrgui2.pl b/Master/tlpkg/dev/tlmgrgui2.pl
index a8f5a300e9b..237325654c5 100644
--- a/Master/tlpkg/dev/tlmgrgui2.pl
+++ b/Master/tlpkg/dev/tlmgrgui2.pl
@@ -18,6 +18,7 @@
 #       from some other commands that have been run
 # TODO: remove the "all <-> matching" and activate it as soon as the
 #       match string is not empty.
+# TODO: should we allow the "with filter [] applied [] not applied" thing?
 
 $^W = 1;
 use strict;
@@ -225,7 +226,10 @@ $menu_actions->add('command', -label => __("Re-create all formats"),
   -command => sub { 
                     $mw->Busy(-recurse => 1);
                     info("Running fmtutil-sys --all, this may take some time ...\n");
-                    info(`fmtutil-sys --all 2>&1`); 
+                    for my $l (`fmtutil-sys --all 2>&1`) {
+                      info($l);
+                      $mw->update;
+                    }
                     $mw->Unbusy;
                   });
 $menu_actions->add('command', -label => __("Update font map database"),
@@ -233,7 +237,10 @@ $menu_actions->add('command', -label => __("Update font map database"),
   -command => sub { 
                     $mw->Busy(-recurse => 1);
                     info("Running updmap-sys, this may take some time ...\n");
-                    info(`updmap-sys 2>&1`); 
+                    for my $l (`updmap-sys 2>&1`) {
+                      info($l);
+                      $mw->update;
+                    }
                     $mw->Unbusy;
                   });
 
@@ -1154,6 +1161,8 @@ sub select_file_assocs {
 ################ END FUNCTIONS
 
 if ($opts{"load"}) {
+  $location = $tlpdb_location; 
+  update_loaded_location_string();
   run_update_functions();
 }