summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-05-01 22:39:53 +0000
committerKarl Berry <karl@freefriends.org>2017-05-01 22:39:53 +0000
commit8c793c0c08d5dacbca98c8e9b6da0e83b33372d9 (patch)
tree560eca33d4f0abd73d551ab282e83878ce97847d /Master/texmf-dist/scripts
parentf6f14b66a43cfda291c0d146c1019d2c384c6f8e (diff)
(action_shell): exit F_OK if get eof.
git-svn-id: svn://tug.org/texlive/trunk@44144 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl6
1 files changed, 2 insertions, 4 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index e534b0d4feb..5bafccb5df5 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -5890,11 +5890,9 @@ sub action_shell {
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") {