diff options
| author | Norbert Preining <preining@logic.at> | 2016-05-15 07:23:54 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2016-05-15 07:23:54 +0000 |
| commit | e6a47083a9a9864220a01cfa2136b260ac70abf0 (patch) | |
| tree | be494e7544b2b5d2c79c982f5c4117d27c44cad5 /Master | |
| parent | 8a83928acc87b8c1765934baecc7541e01f169eb (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')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 |
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"); |