summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-12 06:09:05 +0000
committerNorbert Preining <preining@logic.at>2016-04-12 06:09:05 +0000
commitef9e096c55707448800e3f994fef94a4d0eac3d5 (patch)
tree01892459aecd575699523fb7f37c376ff219e006 /Master/tlpkg/TeXLive/TLPDB.pm
parent157d2ac168fda1e85407ebf502b1def578f05c08 (diff)
gpg signature check working
git-svn-id: svn://tug.org/texlive/trunk@40438 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 8eb4411cc4d..edbabc1c46c 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -362,7 +362,10 @@ sub from_file {
# cases the result, i.e., the unpackaged tlpdb, is in $tlpdbfile
#
# before we open and proceed, verify the downloaded file
- TeXLive::TLUtils::verify_download($tlpdbfile, $path);
+ my ($r, $m) = TeXLive::TLUtils::verify_download($tlpdbfile, $path);
+ if (!$r) {
+ tldie("$0: verification of $tlpdbfile from $path failed ($r): $m\n");
+ }
open($retfh, "<$tlpdbfile") || die "$0: open($tlpdbfile) failed: $!";
} else {
open(TMP, "<$path") || die "$0: open($path) failed: $!";