try to be more informative when no remote db can be loaded

git-svn-id: svn://tug.org/texlive/trunk@16442 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 19 insertions, 1 deletions

diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 3d1e2b94bb7..903513a1ca7 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -291,7 +291,25 @@ sub from_file {
       $found++;
     }
   } until (!$ret);
-  tlwarn("unusable location $path, could not load any packages\n") if (!$found);
+  if (! $found) {
+    tlwarn("$0: Could not load packages from\n");
+    tlwarn("  $path\n");
+    if ($path =~ m,/2008(/|$),) {
+      # have to do this differently in 09/10, since the path will be the same.
+      tlwarn("TeX Live 2008 is no longer available for updates.\n")
+    } else {
+      tlwarn(<<END_EXPLICIT_MIRROR);
+
+You may want to try specifying an explicit or different CTAN mirror;
+see the information and examples for the -repository option at
+http://tug.org/texlive/doc/install-tl.html
+(or in the output of install-tl --help).
+
+END_EXPLICIT_MIRROR
+      # above text duplicated in tlmgr.pl, sorry.
+    }
+  }
+
   # remove the un-xz-ed tlpdb file from temp dir
   # THAT IS RACY!!! we should fix that in some better way with tempfile
   close($retfh);