summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLCrypto.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-05-15 07:12:50 +0000
committerNorbert Preining <preining@logic.at>2016-05-15 07:12:50 +0000
commit8a83928acc87b8c1765934baecc7541e01f169eb (patch)
tree53e11fbb33bfd388985a7a877919b14ca62dd5f7 /Master/tlpkg/TeXLive/TLCrypto.pm
parent3f3468f78fe6cd335f9df927bf04c0ce1377f88b (diff)
make sure ::checksum_method is always initialized and return "" if no one given
git-svn-id: svn://tug.org/texlive/trunk@41142 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLCrypto.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLCrypto.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLCrypto.pm b/Master/tlpkg/TeXLive/TLCrypto.pm
index fdc01215c7c..7716f9eb292 100644
--- a/Master/tlpkg/TeXLive/TLCrypto.pm
+++ b/Master/tlpkg/TeXLive/TLCrypto.pm
@@ -68,6 +68,8 @@ Returns the checksum method or undef if none found.
=cut
sub setup_checksum_method {
+ # default is no checksum
+ $::checksum_method = "";
# for debugging
# $::checksum_method = "sha512sum";
# return($::checksum_method);
@@ -120,9 +122,11 @@ Return checksum of C<$file>.
sub tlchecksum {
my ($file) = @_;
- if (!$::checksum_method) {
- setup_checksum_method();
- }
+ # no reason to have this here
+ # if (!$::checksum_method) {
+ # setup_checksum_method();
+ # }
+ return "" if (!$::checksum_method);
if (-r $file) {
my ($out, $ret);
if ($::checksum_method eq "openssl") {