diff options
author | Norbert Preining <preining@logic.at> | 2008-07-12 12:50:42 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-07-12 12:50:42 +0000 |
commit | ac5a70db094718578e32ac9b872b78a4ab83cbde (patch) | |
tree | 7a06c9601ec294bae21742e83d51b6c4a33ac42b | |
parent | be7e85474529a2eda0f2ae176042fb020d0957a8 (diff) |
TLUtils: fix that dreadful: size are equal, but md5sums differ.
We checked the wrong string, namely http://... instead of the downloaded
file!!! STUPIDITY
git-svn-id: svn://tug.org/texlive/trunk@9470 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index f4b3ba27701..761a85fcd11 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -924,7 +924,7 @@ sub install_package { if ($size == $whatsize) { # we want to check also the md5sum if we have it present if ($whatmd5) { - if (tlmd5($what) eq $whatmd5) { + if (tlmd5($lzmafile) eq $whatmd5) { $gotfiledone = 1; } else { tlwarn("Downloaded file present, size equal, but md5sum differs\nredownloading $what!\n"); @@ -941,7 +941,7 @@ sub install_package { } else { # ok no size information, hopefully we have md5 sums if ($whatmd5) { - if (tlmd5($what) eq $whatmd5) { + if (tlmd5($lzmafile) eq $whatmd5) { $gotfiledone = 1; } else { tlwarn("Downloaded file present, but md5sum differs, removing it!\n"); |