diff options
author | Norbert Preining <preining@logic.at> | 2016-04-12 06:08:56 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-04-12 06:08:56 +0000 |
commit | 157d2ac168fda1e85407ebf502b1def578f05c08 (patch) | |
tree | 67ee9ffe1785ec4824d1051fc57326f607b86cef /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | 1eb0f9caa327b5b7b607d62126be4745d50222c3 (diff) |
refactor downloading, verify downloaded tlpdb
git-svn-id: svn://tug.org/texlive/trunk@40437 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 8831b881d63..b36484bbe85 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3702,16 +3702,10 @@ Returns 1 on success, and a pair of 0 and a warning otherwise. =cut sub verify_download { - - # TODO TODO - # we need to set gpg parameters!!! - - die("GPG PARAMEters need to be set!!!\n"); - my ($file, $url) = @_; # first verify digest my ($ret, $msg) = verify_checksum($file, "$url.checksum"); - return($ret,$mst) if (!$ret); + return($ret,$msg) if (!$ret); # next try to verify gpg $ret = 1; # default for gpg download if ($::gpg) { |