texlive[44144] Master/texmf-dist/scripts/texlive/tlmgr.pl:

commits+karl at tug.org commits+karl at tug.org
Tue May 2 00:39:53 CEST 2017


Revision: 44144
          http://tug.org/svn/texlive?view=revision&revision=44144
Author:   karl
Date:     2017-05-02 00:39:53 +0200 (Tue, 02 May 2017)
Log Message:
-----------
(action_shell): exit F_OK if get eof.

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

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-05-01 21:58:19 UTC (rev 44143)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-05-01 22:39:53 UTC (rev 44144)
@@ -5890,11 +5890,9 @@
 
   print "protocol $protocol\n";
   while (1) {
-    # print $prompt;
-    # my $ans = <STDIN>;
     my $ans = do_prompt('tlmgr>');
-    # chomp $ans;
-    next if (!defined($ans));
+    return $F_OK if !defined($ans); # done if eof
+
     my ($cmd, @args) = TeXLive::TLUtils::quotewords('\s+', 0, $ans);
     next if (!defined($cmd));
     if ($cmd eq "protocol") {



More information about the tex-live-commits mailing list