diff options
author | Karl Berry <karl@freefriends.org> | 2009-08-20 21:09:45 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-08-20 21:09:45 +0000 |
commit | 3b45cdc93f7ff4071f4fb197c79265ef50bcb410 (patch) | |
tree | f745305d6d56a1cd8fc505a8da9cb57b6e5781da /Master/texmf/scripts | |
parent | 577e4003499ca314589d8a3c3fb04121be1b31fa (diff) |
separate pre-running and done-running notices onto separate lines, for the benefit of TeX Live Utility (from Adam Maxwell, 20 Aug 2009)
git-svn-id: svn://tug.org/texlive/trunk@14791 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 7706ca67618..4922870ee28 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -460,14 +460,20 @@ sub execute_action { - -sub do_cmd_and_check { +# run CMD with notice to the user and if exit status is nonzero, complain. +# return exit status. +# +sub do_cmd_and_check +{ my $cmd = shift; - info("running $cmd ... "); + # we output the pre-running notice on a separate line so that + # tlmgr front ends (MacOSX's TeX Live Utility) can read it + # and show it to the user before the possibly long delay. + info("running $cmd ...\n"); my ($out, $ret) = TeXLive::TLUtils::run_cmd("$cmd 2>&1"); if ($ret == 0) { - info("done\n"); - log("Output of $cmd:\n$out\n"); + info("done running $cmd.\n"); + log("--output of $cmd:\n$out\n--end of output of $cmd."); } else { info("\n"); tlwarn("$cmd failed (status $ret), output:\n$out\n"); @@ -482,8 +488,8 @@ sub do_cmd_and_check { # If the "map" key is specified, the value may be a reference to a list # of map command strings to pass to updmap, e.g., "enable Map=ascii.map". # -sub handle_execute_actions { - +sub handle_execute_actions +{ my $errors = 0; if ($::files_changed) { |