diff options
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 4bee9c9d2d5..e3e1161892b 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -3476,7 +3476,7 @@ sub action_update { # warn if nothing is updated. Unless they said --self, in which case # we've already reported it. if (!(@new || @updated) && ! $opts{"self"}) { - info("$prg: no updates available\n"); + info("$prg: no updates available\n") if (!$::machinereadable); if ($remotetlpdb->media ne "NET" && $remotetlpdb->media ne "virtual" && !$opts{"dry-run"} @@ -6314,7 +6314,11 @@ END_NO_CHECKSUMS $remotetlpdb->virtual_pinning($pinfile); # this "location-url" line should not be changed since GUI programs # depend on it: - print "location-url\t$locstr\n" if $::machinereadable; + if ($::machinereadable) { + print "location-url\t$locstr\n"; + return 1; + } + # from here on only in non-machine-readable mode! info("$prg: package repositories\n"); my $verstat = ""; if (!$remotetlpdb->virtual_get_tlpdb('main')->is_verified) { |