From 8a83928acc87b8c1765934baecc7541e01f169eb Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 15 May 2016 07:12:50 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLCrypto.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLCrypto.pm') 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") { -- cgit v1.2.3