summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-04-01 03:20:33 +0000
committerNorbert Preining <preining@logic.at>2018-04-01 03:20:33 +0000
commitda14a49978ae2f64cc77995664f47d77976b18b8 (patch)
treeeaacee981950b744591e0e6247af11eefd705228 /Master/tlpkg/TeXLive/TLUtils.pm
parent387bc346cef7111884a4918bfa3cbf8859d191cb (diff)
silence checksum/size warnings of unpack during restore/unwind
git-svn-id: svn://tug.org/texlive/trunk@47220 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm7
1 files changed, 5 insertions, 2 deletions
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> (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<checksum> or C<size> is C<-1>, no warnings about missing checksum/size
+is printed. This is used during restore and unwinding of failed updates.
+
=cut
sub unpack {