texlive[51716] Master/texmf-dist/scripts/texlive/tlmgr.pl: show tlpdb
commits+preining at tug.org
commits+preining at tug.org
Wed Jul 24 06:58:04 CEST 2019
Revision: 51716
http://tug.org/svn/texlive?view=revision&revision=51716
Author: preining
Date: 2019-07-24 06:58:04 +0200 (Wed, 24 Jul 2019)
Log Message:
-----------
show tlpdb loading messages only in machinereadable mode
Modified Paths:
--------------
trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2019-07-24 04:56:40 UTC (rev 51715)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2019-07-24 04:58:04 UTC (rev 51716)
@@ -6878,7 +6878,7 @@
# - if that does not work assume we are offline or target not reachable,
# so warn the user and use saved, but note that installation will
# not work
- info("$prg: Start loading tlpdb from $location\n");
+ info("start load $location\n") if ($::machinereadable);
my $local_copy_tlpdb_used = 0;
if ($location =~ m;^(https?|ftp)://;) {
@@ -6961,11 +6961,11 @@
}
}
if (!defined($remotetlpdb)) {
- info("$prg: Failed loading tlpdb from $location\n");
+ info("fail load $location\n") if ($::machinereadable);
return(undef, $loadmediasrcerror . $location);
}
if ($opts{"require-verification"} && !$remotetlpdb->is_verified) {
- info("$prg: Failed loading tlpdb from $location\n");
+ info("fail load $location\n") if ($::machinereadable);
tldie("Remote TeX Live database ($location) is not verified, exiting.\n");
}
@@ -6985,7 +6985,7 @@
my $texlive_minrelease = $remotetlpdb->config_minrelease;
my $rroot = $remotetlpdb->root;
if (!defined($texlive_release)) {
- info("$prg: Failed loading tlpdb from $location\n");
+ info("fail load $location\n") if ($::machinereadable);
return(undef, "The installation repository ($rroot) does not specify a "
. "release year for which it was prepared, goodbye.");
}
@@ -6993,7 +6993,7 @@
my $texlive_release_year = $texlive_release;
$texlive_release_year =~ s/^(....).*$/$1/;
if ($texlive_release_year !~ m/^[1-9][0-9][0-9][0-9]$/) {
- info("$prg: Failed loading tlpdb from $location\n");
+ info("fail load $location\n") if ($::machinereadable);
return(undef, "The installation repository ($rroot) does not specify a "
. "valid release year, goodbye: $texlive_release");
}
@@ -7003,7 +7003,7 @@
my $texlive_minrelease_year = $texlive_minrelease;
$texlive_minrelease_year =~ s/^(....).*$/$1/;
if ($texlive_minrelease_year !~ m/^[1-9][0-9][0-9][0-9]$/) {
- info("$prg: Failed loading tlpdb from $location\n");
+ info("fail load $location\n") if ($::machinereadable);
return(undef, "The installation repository ($rroot) does not specify a "
. "valid minimal release year, goodbye: $texlive_minrelease");
}
@@ -7010,7 +7010,7 @@
# ok, all numeric and fine, check for range
if ($TeXLive::TLConfig::ReleaseYear < $texlive_minrelease_year
|| $TeXLive::TLConfig::ReleaseYear > $texlive_release_year) {
- info("$prg: Failed loading tlpdb from $location\n");
+ info("fail load $location\n") if ($::machinereadable);
return (undef, "The TeX Live versions supported by the repository
$rroot
($texlive_minrelease_year--$texlive_release_year)
@@ -7022,7 +7022,7 @@
# of the main remote repository, then
# warn that one needs to call update-tlmgr-latest.sh --update
if ($is_main && $TeXLive::TLConfig::ReleaseYear < $texlive_release_year) {
- info("$prg: Failed loading tlpdb from $location\n");
+ info("fail load $location\n") if ($::machinereadable);
return (undef, "Local TeX Live ($TeXLive::TLConfig::ReleaseYear)"
. " is older than remote repository ($texlive_release_year).\n"
. "Cross release updates are only supported with\n"
@@ -7032,7 +7032,7 @@
} else {
# $texlive_minrelease not defined, so only one year is valid
if ($texlive_release_year != $TeXLive::TLConfig::ReleaseYear) {
- info("$prg: Failed loading tlpdb from $location\n");
+ info("fail load $location\n") if ($::machinereadable);
return(undef, "The TeX Live versions of the local installation
and the repository are not compatible:
local: $TeXLive::TLConfig::ReleaseYear
@@ -7075,7 +7075,7 @@
}
}
- info("$prg: Finished loading tlpdb from $location\n");
+ info("finish load $location\n") if ($::machinereadable);
return($remotetlpdb);
}
More information about the tex-live-commits
mailing list