diff options
author | Norbert Preining <preining@logic.at> | 2016-04-12 06:11:21 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-04-12 06:11:21 +0000 |
commit | 6a22f5f0018dc68b01d241a55c514a7f8755dd11 (patch) | |
tree | dd30f53ab68f7d798defecb946693aec6286a17b /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | 601410ed8ee3c502bc016ac493666002013d217d (diff) |
make verify_* return values numeric with informal messages
git-svn-id: svn://tug.org/texlive/trunk@40449 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index edbabc1c46c..658eafdb316 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -363,7 +363,7 @@ sub from_file { # # before we open and proceed, verify the downloaded file my ($r, $m) = TeXLive::TLUtils::verify_download($tlpdbfile, $path); - if (!$r) { + if ($r != 0) { tldie("$0: verification of $tlpdbfile from $path failed ($r): $m\n"); } open($retfh, "<$tlpdbfile") || die "$0: open($tlpdbfile) failed: $!"; |