diff options
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") { |