diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLCrypto.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLCrypto.pm | 10 |
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") { |