texlive[45047] Master/texmf-dist/scripts/tlshell/tlshell.tcl:

[commits+preining at tug.org]

Revision: 45047
          http://tug.org/svn/texlive?view=revision&revision=45047
Author:   preining
Date:     2017-08-15 08:31:13 +0200 (Tue, 15 Aug 2017)
Log Message:
-----------
tlshell: use command line option --machine-readable

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2017-08-15 06:29:03 UTC (rev 45046)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2017-08-15 06:31:13 UTC (rev 45047)
@@ -199,12 +199,11 @@
 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 {} {