texlive[45025] Master/texmf-dist/scripts: remove autoflush option,

commits+preining at tug.org commits+preining at tug.org
Sat Aug 12 01:53:59 CEST 2017


Revision: 45025
          http://tug.org/svn/texlive?view=revision&revision=45025
Author:   preining
Date:     2017-08-12 01:53:58 +0200 (Sat, 12 Aug 2017)
Log Message:
-----------
remove autoflush option, set it unconditionally, adjust tlshell

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

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-08-11 23:07:23 UTC (rev 45024)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-08-11 23:53:58 UTC (rev 45025)
@@ -310,9 +310,6 @@
     "function" => \&action_search
   },
   "shell" => {
-    "options" => {
-      "autoflush" => 1,
-    },
     "function" => \&action_shell
   },
   "uninstall" => {
@@ -5875,9 +5872,8 @@
 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!

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2017-08-11 23:07:23 UTC (rev 45024)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2017-08-11 23:53:58 UTC (rev 45025)
@@ -284,7 +284,7 @@
 
   # 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



More information about the tex-live-commits mailing list