summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-14 12:15:39 +0000
committerNorbert Preining <preining@logic.at>2016-04-14 12:15:39 +0000
commit47bff32c2f4a67abfcf63c831511158e8be2a53a (patch)
treeb9e934fd0db543527ae80ae500624120291b616c /Master/tlpkg/TeXLive/TLPDB.pm
parenta8020de0fdcffefc08a0e49d1495d0ac21a0189f (diff)
make installation from local_uncompressed ignoring checksums etc
git-svn-id: svn://tug.org/texlive/trunk@40501 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm6
1 files 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");