summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-05-15 07:23:54 +0000
committerNorbert Preining <preining@logic.at>2016-05-15 07:23:54 +0000
commite6a47083a9a9864220a01cfa2136b260ac70abf0 (patch)
treebe494e7544b2b5d2c79c982f5c4117d27c44cad5 /Master/tlpkg/TeXLive
parent8a83928acc87b8c1765934baecc7541e01f169eb (diff)
TLUtils::check_file: only check checksums if we can compute them
git-svn-id: svn://tug.org/texlive/trunk@41143 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 4ed3c5a7636..c1f9b7fea27 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1975,7 +1975,8 @@ not agree. If a check argument is not given, that check is not performed.
sub check_file {
my ($xzfile, $checksum, $checksize) = @_;
- if ($checksum) {
+ # only run checksum tests if we can actually compute the checksum
+ if ($checksum && $::checksum_method) {
my $tlchecksum = TeXLive::TLCrypto::tlchecksum($xzfile);
if ($tlchecksum ne $checksum) {
tlwarn("TLUtils::check_file: removing $xzfile, checksums differ:\n");