diff options
author | Norbert Preining <preining@logic.at> | 2017-08-15 06:29:03 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2017-08-15 06:29:03 +0000 |
commit | bbbac5fc4180dd773310f2876954d340fcfe0f60 (patch) | |
tree | 8d871fe5d6dffb2ce5dcd4b249d71c7952b0bce2 /Master/texmf-dist/scripts | |
parent | 921521b6bcc5943a1b009a071a91387b53518071 (diff) |
better tlmgr shell machine readability
git-svn-id: svn://tug.org/texlive/trunk@45046 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 4edf6f5781b..3ab2703f11f 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -531,7 +531,7 @@ for the full story.\n"; # --machine-readable is only supported by update. if ($::machinereadable && - $action ne "update" && $action ne "install" && $action ne "option") { + $action ne "update" && $action ne "install" && $action ne "option" && $action ne "shell") { tlwarn("$prg: --machine-readable output not supported for $action\n"); } @@ -5915,8 +5915,8 @@ sub action_shell { } print "$default_prompt " if (!$did_prompt); # to make sure that flushing is done properly, we ship out - # a new line in autoflush mode: - print "\n" if $opts{'autoflush'}; + # a new line in buffer mode: + print "\n" if $::machinereadable; my $ans = <STDIN>; if (!defined($ans)) { # we got Ctrl-D, just break out @@ -5942,7 +5942,7 @@ sub action_shell { } if (!$isok) { print("Please answer one of: @guarantee\n"); - print "\n" if $opts{'autoflush'}; + print "\n" if $::machinereadable; return(&$do_prompt(@savedargs)); } } |