summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-12 06:08:56 +0000
committerNorbert Preining <preining@logic.at>2016-04-12 06:08:56 +0000
commit157d2ac168fda1e85407ebf502b1def578f05c08 (patch)
tree67ee9ffe1785ec4824d1051fc57326f607b86cef /Master/tlpkg/TeXLive/TLUtils.pm
parent1eb0f9caa327b5b7b607d62126be4745d50222c3 (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.pm8
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) {