make TLPDB warning simpler

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

1 files changed, 1 insertions, 10 deletions

diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 3caabf25ca3..d29d939ca6b 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -271,16 +271,7 @@ sub from_file {
       $found++;
     }
   } until (!$ret);
-  if (!$found) {
-    if ($path =~ m/^http|ftp/i) {
-      tlwarn("Bad URL, ");
-    } else {
-      tlwarn("Bad path, ");
-    }
-    tlwarn("cannot read any package from\n");
-    tlwarn("\t$path\n");
-    tlwarn("seems not to be a TLPDB!\n");
-  }
+  tlwarn("unusable location $path, could not load any packages\n") if (!$found);
   # remove the un-lzma-ed tlpdb file from temp dir
   # THAT IS RACY!!! we should fix that in some better way with tempfile
   unlink($tlpdbfile) if $tlpdbfile;