summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLCrypto.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLCrypto.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLCrypto.pm16
1 files changed, 11 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLCrypto.pm b/Master/tlpkg/TeXLive/TLCrypto.pm
index 7716f9eb292..29e7a2c5a41 100644
--- a/Master/tlpkg/TeXLive/TLCrypto.pm
+++ b/Master/tlpkg/TeXLive/TLCrypto.pm
@@ -68,6 +68,11 @@ Returns the checksum method or undef if none found.
=cut
sub setup_checksum_method {
+ # make it a noop if already defined
+ # the checksum method could also be "" meaning that there
+ # is none. We do not need to check again. Thus we check
+ # on defined.
+ return ($::checksum_method) if defined($::checksum_method);
# default is no checksum
$::checksum_method = "";
# for debugging
@@ -122,11 +127,12 @@ Return checksum of C<$file>.
sub tlchecksum {
my ($file) = @_;
- # no reason to have this here
- # if (!$::checksum_method) {
- # setup_checksum_method();
- # }
- return "" if (!$::checksum_method);
+ # this is here for the case that a script forgets to
+ # set up the checksum method!
+ if (!$::checksum_method) {
+ setup_checksum_method();
+ }
+ tldie("no checksum method available\n") if (!$::checksum_method);
if (-r $file) {
my ($out, $ret);
if ($::checksum_method eq "openssl") {