From 8c793c0c08d5dacbca98c8e9b6da0e83b33372d9 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 1 May 2017 22:39:53 +0000 Subject: (action_shell): exit F_OK if get eof. git-svn-id: svn://tug.org/texlive/trunk@44144 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'Master/texmf-dist') 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 = ; 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") { -- cgit v1.2.3