diff options
author | Norbert Preining <preining@logic.at> | 2016-05-15 07:12:50 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-05-15 07:12:50 +0000 |
commit | 8a83928acc87b8c1765934baecc7541e01f169eb (patch) | |
tree | 53e11fbb33bfd388985a7a877919b14ca62dd5f7 /Master | |
parent | 3f3468f78fe6cd335f9df927bf04c0ce1377f88b (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')
-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") { |