From da14a49978ae2f64cc77995664f47d77976b18b8 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 1 Apr 2018 03:20:33 +0000 Subject: silence checksum/size warnings of unpack during restore/unwind git-svn-id: svn://tug.org/texlive/trunk@47220 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLUtils.pm') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index c989cd63dee..ff3960faf99 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2077,7 +2077,7 @@ sub check_file { return; } # only run checksum tests if we can actually compute the checksum - if ($checksum && $::checksum_method) { + if ($checksum && ($checksum ne "-1") && $::checksum_method) { my $tlchecksum = TeXLive::TLCrypto::tlchecksum($xzfile); if ($tlchecksum ne $checksum) { tlwarn("TLUtils::check_file: removing $xzfile, checksums differ:\n"); @@ -2090,7 +2090,7 @@ sub check_file { return; } } - if ($checksize) { + if ($checksize && ($checksize ne "-1")) { my $filesize = (stat $xzfile)[7]; if ($filesize != $checksize) { tlwarn("TLUtils::check_file: removing $xzfile, sizes differ:\n"); @@ -2116,6 +2116,9 @@ C (remove temporary files after operation). Returns a pair of values: in case of error return 0 and an additional explanation, in case of success return 1 and the name of the package. +If C or C is C<-1>, no warnings about missing checksum/size +is printed. This is used during restore and unwinding of failed updates. + =cut sub unpack { -- cgit v1.2.3