diff options
author | Norbert Preining <preining@logic.at> | 2009-11-25 02:25:13 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-11-25 02:25:13 +0000 |
commit | 1502767614b04e59cbf436cfa53de078a3a05f00 (patch) | |
tree | cc2576181d79ce81a9b8c40d850412474f1fa2f5 /Master/tlpkg | |
parent | d4a7fb8fe8464a2b128c5358299730969d98f780 (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')
-rw-r--r-- | Master/tlpkg/dev/tlmgrgui2.pl | 13 |
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(); } |