texlive[51676] Master/texmf-dist/scripts/texlive/tlmgr.pl: Extra

[commits+siepo at tug.org]

Revision: 51676
          http://tug.org/svn/texlive?view=revision&revision=51676
Author:   siepo
Date:     2019-07-19 21:55:54 +0200 (Fri, 19 Jul 2019)
Log Message:
-----------
Extra output while loading repositories, as proposed by Norbert

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-19 01:12:41 UTC (rev 51675)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2019-07-19 19:55:54 UTC (rev 51676)
@@ -6877,6 +6877,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");
 
   my $local_copy_tlpdb_used = 0;
   if ($location =~ m;^(https?|ftp)://;) {
@@ -6959,9 +6960,11 @@
     }
   }
   if (!defined($remotetlpdb)) {
+    info("$prg: Failed loading tlpdb from $location\n");
     return(undef, $loadmediasrcerror . $location);
   }
   if ($opts{"require-verification"} && !$remotetlpdb->is_verified) {
+    info("$prg: Failed loading tlpdb from $location\n");
     tldie("Remote TeX Live database ($location) is not verified, exiting.\n");
   }
 
@@ -6981,6 +6984,7 @@
   my $texlive_minrelease = $remotetlpdb->config_minrelease;
   my $rroot = $remotetlpdb->root;
   if (!defined($texlive_release)) {
+    info("$prg: Failed loading tlpdb from $location\n");
     return(undef, "The installation repository ($rroot) does not specify a "
           . "release year for which it was prepared, goodbye.");
   }
@@ -6988,6 +6992,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");
     return(undef, "The installation repository ($rroot) does not specify a "
           . "valid release year, goodbye: $texlive_release");
   }
@@ -6997,6 +7002,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");
       return(undef, "The installation repository ($rroot) does not specify a "
             . "valid minimal release year, goodbye: $texlive_minrelease");
     }
@@ -7003,6 +7009,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");
       return (undef, "The TeX Live versions supported by the repository
 $rroot
   ($texlive_minrelease_year--$texlive_release_year)
@@ -7014,6 +7021,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");
       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"
@@ -7023,6 +7031,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");
       return(undef, "The TeX Live versions of the local installation
 and the repository are not compatible:
       local: $TeXLive::TLConfig::ReleaseYear
@@ -7065,6 +7074,7 @@
     }
   }
 
+  info("$prg: Finished loading tlpdb from $location\n");
   return($remotetlpdb);
 }