summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dev
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-11-25 02:25:13 +0000
committerNorbert Preining <preining@logic.at>2009-11-25 02:25:13 +0000
commit1502767614b04e59cbf436cfa53de078a3a05f00 (patch)
treecc2576181d79ce81a9b8c40d850412474f1fa2f5 /Master/tlpkg/dev
parentd4a7fb8fe8464a2b128c5358299730969d98f780 (diff)
evaluate the --load option properly, and use $mw->update
git-svn-id: svn://tug.org/texlive/trunk@16160 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/dev')
-rw-r--r--Master/tlpkg/dev/tlmgrgui2.pl13
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();
}