summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-08-15 06:29:03 +0000
committerNorbert Preining <preining@logic.at>2017-08-15 06:29:03 +0000
commitbbbac5fc4180dd773310f2876954d340fcfe0f60 (patch)
tree8d871fe5d6dffb2ce5dcd4b249d71c7952b0bce2
parent921521b6bcc5943a1b009a071a91387b53518071 (diff)
better tlmgr shell machine readability
git-svn-id: svn://tug.org/texlive/trunk@45046 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl8
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));
}
}