diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 5 |
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: $!"; |