diff options
| author | Norbert Preining <preining@logic.at> | 2017-08-11 23:53:58 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2017-08-11 23:53:58 +0000 |
| commit | 5bc5af2990a32d66aad88845ba3bb677838b80da (patch) | |
| tree | 3607d1e43a51f5300aa6487feb6fbcc1edd70da6 /Master/texmf-dist | |
| parent | 0e9f3679f9eca47f8d3674011f1b809879298071 (diff) | |
remove autoflush option, set it unconditionally, adjust tlshell
git-svn-id: svn://tug.org/texlive/trunk@45025 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 8 | ||||
| -rwxr-xr-x | Master/texmf-dist/scripts/tlshell/tlshell.tcl | 2 |
2 files changed, 3 insertions, 7 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index d15e75a308b..4edf6f5781b 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -310,9 +310,6 @@ my %action_specification = ( "function" => \&action_search }, "shell" => { - "options" => { - "autoflush" => 1, - }, "function" => \&action_shell }, "uninstall" => { @@ -5875,9 +5872,8 @@ sub action_key { sub action_shell { my $protocol = 1; my $default_prompt = "tlmgr>"; - if ($opts{'autoflush'}) { - $| = 1; - } + # set auto flush unconditionally in action shell + $| = 1; # we need to do an anonymous sub here otherwise the $default_prompt will get # only fixed once and remain forever. With anonymous subs it is rebound # on every call! diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl index f724dcf720c..0af0c38b231 100755 --- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl +++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl @@ -284,7 +284,7 @@ proc initialize {} { # start the TeX Live Manager shell interface # capture stdout into the pipe, stderr into a temp file - set ::tlshl [open "|tlmgr --autoflush shell 2>>$::err_file" w+] + set ::tlshl [open "|tlmgr shell 2>>$::err_file" w+] set ::err [open $::err_file r] chan configure $::tlshl -buffering line -blocking 0 chan event $::tlshl readable read_line |