summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2020-08-06 01:41:42 +0000
committerNorbert Preining <preining@logic.at>2020-08-06 01:41:42 +0000
commit3196134656d1de13f4743539f0924b46c6b5c340 (patch)
tree69f2b474404ddba4ee156181e8d1f6e01f0d74a3 /Master/texmf-dist/scripts
parent4ccffa9b21ce150ec58a799de7c4b5bccd16af09 (diff)
better reporting in case of no updates available
git-svn-id: svn://tug.org/texlive/trunk@56058 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl17
1 files changed, 9 insertions, 8 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index b71a4810506..262bd702799 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -2736,14 +2736,13 @@ sub action_update {
} else {
@todo = @ARGV;
}
+ if ($opts{"self"} && !@critical) {
+ info("$prg: no self-updates for tlmgr available\n");
+ }
# don't do anything if we have been invoked in a strange way
- if (!@todo) {
- if ($opts{"self"}) {
- info("$prg: no self-updates for tlmgr available.\n");
- } else {
- tlwarn("$prg update: please specify a list of packages, --all, or --self.\n");
- return ($F_ERROR);
- }
+ if (!@todo && !$opts{"self"}) {
+ tlwarn("$prg update: please specify a list of packages, --all, or --self.\n");
+ return ($F_ERROR);
}
if (!($opts{"self"} && @critical) || ($opts{"self"} && $opts{"list"})) {
@@ -3585,7 +3584,9 @@ sub action_update {
# if a real update from default disk location didn't find anything,
# warn if nothing is updated. Unless they said --self, in which case
# we've already reported it.
- if (!(@new || @updated) && ! $opts{"self"}) {
+ # But if --self --all was given, and *no* update available for
+ # critical packages, then we should report it, too!
+ if (!(@new || @updated) && ( !$opts{"self"} || @todo )) {
if (!$::machinereadable) {
info("$prg: no updates available\n");
if ($remotetlpdb->media ne "NET"