summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-05-14 17:43:35 +0000
committerKarl Berry <karl@freefriends.org>2018-05-14 17:43:35 +0000
commit7810775d1cb9bffd6fdd4ab34fa9cda00b934816 (patch)
tree7fc14ab05d5fbb1a2562d97a5ecc2621ad767c94 /Master/tlpkg/TeXLive/TLPDB.pm
parent872abd5ea5e52b8c5615892baebd8b648719d13e (diff)
error msg, branch doc
git-svn-id: svn://tug.org/texlive/trunk@47713 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index e41aea078e2..920db228282 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -356,11 +356,12 @@ sub from_file {
debug("TLPDB: downloading $path.xz didn't succeed, try $path\n");
my $ret = TeXLive::TLUtils::download_file($path, $tlpdbfile);
# better to check both, the return value AND the existence of the file
- if ($ret && (-r "$tlpdbfile")) {
+ if ($ret && (-r $tlpdbfile)) {
# do nothing
} else {
unlink($tlpdbfile);
- die "$0: open tlpdb($path) failed: $!";
+ tldie( "$0: TLPDB::from_file could not download $path;\n"
+ . "$0: maybe the repository setting should be changed.\n");
}
}
# if we are still here, then either the xz version was downloaded