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