texlive[58709] Master/tlpkg/TeXLive/TLCrypto.pm: fix undefined when

[commits+preining at tug.org]

Revision: 58709
          http://tug.org/svn/texlive?view=revision&revision=58709
Author:   preining
Date:     2021-04-03 14:05:04 +0200 (Sat, 03 Apr 2021)
Log Message:
-----------
fix undefined  when no checksum method is available

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLCrypto.pm

Modified: trunk/Master/tlpkg/TeXLive/TLCrypto.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLCrypto.pm	2021-04-03 01:35:59 UTC (rev 58708)
+++ trunk/Master/tlpkg/TeXLive/TLCrypto.pm	2021-04-03 12:05:04 UTC (rev 58709)
@@ -311,7 +311,7 @@
   my ($file, $checksum_url) = @_;
   # don't do anything if we cannot determine a checksum method
   # return -2 which is as much as missing signature
-  return($VS_UNSIGNED) if (!$::checksum_method);
+  return($VS_UNSIGNED, "no checksum method found") if (!$::checksum_method);
   my $checksum_file
     = TeXLive::TLUtils::download_to_temp_or_file($checksum_url);
 
@@ -359,7 +359,7 @@
   # we are still here, so checksum also succeeded
   debug("checksum of local copy identical with remote hash\n");
 
-  return(0);
+  return($VS_VERIFIED);
 }
 
 # emacs-page