From ca2b0093893ee418e30136f6ea68a38b6df363a7 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 15 Aug 2017 06:31:13 +0000 Subject: tlshell: use command line option --machine-readable git-svn-id: svn://tug.org/texlive/trunk@45047 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/tlshell/tlshell.tcl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Master') diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl index 1271e15d074..c3727718a90 100755 --- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl +++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl @@ -199,12 +199,11 @@ proc run_cmd {cmd} { proc start_tlmgr {} { # start the TeX Live Manager shell interface # capture stdout into the pipe, stderr into a temp file - set ::tlshl [open "|tlmgr shell 2>>$::err_file" w+] + set ::tlshl [open "|tlmgr --machine-readable shell 2>>$::err_file" w+] set ::err [open $::err_file r] chan configure $::tlshl -buffering line -blocking 0 chan event $::tlshl readable read_line set ::pipe_cb empty_cb - run_cmd "set machine-readable 1" } proc restart_tlmgr {} { -- cgit v1.2.3