summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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") {