summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-12 06:11:21 +0000
committerNorbert Preining <preining@logic.at>2016-04-12 06:11:21 +0000
commit6a22f5f0018dc68b01d241a55c514a7f8755dd11 (patch)
treedd30f53ab68f7d798defecb946693aec6286a17b /Master/tlpkg/TeXLive/TLPDB.pm
parent601410ed8ee3c502bc016ac493666002013d217d (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.pm2
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: $!";