From e6a47083a9a9864220a01cfa2136b260ac70abf0 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 15 May 2016 07:23:54 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLUtils.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Master') 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"); -- cgit v1.2.3