summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-08-11 23:53:58 +0000
committerNorbert Preining <preining@logic.at>2017-08-11 23:53:58 +0000
commit5bc5af2990a32d66aad88845ba3bb677838b80da (patch)
tree3607d1e43a51f5300aa6487feb6fbcc1edd70da6
parent0e9f3679f9eca47f8d3674011f1b809879298071 (diff)
remove autoflush option, set it unconditionally, adjust tlshell
git-svn-id: svn://tug.org/texlive/trunk@45025 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl8
-rwxr-xr-xMaster/texmf-dist/scripts/tlshell/tlshell.tcl2
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