From 47bff32c2f4a67abfcf63c831511158e8be2a53a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 14 Apr 2016 12:15:39 +0000 Subject: make installation from local_uncompressed ignoring checksums etc git-svn-id: svn://tug.org/texlive/trunk@40501 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index c4d4ab313ce..a3c22358000 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -366,15 +366,17 @@ sub from_file { # cases the result, i.e., the unpackaged tlpdb, is in $tlpdbfile # # before we open and proceed, verify the downloaded file - if ($params{'verify'}) { + if ($params{'verify'} && $media ne 'local_uncompressed') { my ($r, $m) = TeXLive::TLUtils::verify_checksum($tlpdbfile, "$path.$TeXLive::TLConfig::ChecksumExtension"); + # TODO here we could check for -1 as return value + # which would indicate that the checksum could not be downloaded! if ($r != 0) { tldie("$0: verification of $tlpdbfile from $path failed ($r): $m\n"); } } open($retfh, "<$tlpdbfile") || die "$0: open($tlpdbfile) failed: $!"; } else { - if ($params{'verify'}) { + if ($params{'verify'} && $media ne 'local_uncompressed') { my ($r, $m) = TeXLive::TLUtils::verify_checksum($path, "$path.$TeXLive::TLConfig::ChecksumExtension"); if ($r != 0) { tldie("$0: verification of $path failed ($r): $m\n"); -- cgit v1.2.3