diff options
| author | Karl Berry <karl@freefriends.org> | 2017-05-01 22:39:53 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2017-05-01 22:39:53 +0000 |
| commit | 8c793c0c08d5dacbca98c8e9b6da0e83b33372d9 (patch) | |
| tree | 560eca33d4f0abd73d551ab282e83878ce97847d /Master/texmf-dist/scripts | |
| parent | f6f14b66a43cfda291c0d146c1019d2c384c6f8e (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-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 6 |
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") { |