texlive[52158] Master/tlpkg/TeXLive/TLCrypto.pm: (tlchecksum):

[commits+karl at tug.org]

Revision: 52158
          http://tug.org/svn/texlive?view=revision&revision=52158
Author:   karl
Date:     2019-09-23 20:04:33 +0200 (Mon, 23 Sep 2019)
Log Message:
-----------
(tlchecksum): identify ourselves more specifically
in tlwarn/tldie messages.

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

Modified: trunk/Master/tlpkg/TeXLive/TLCrypto.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLCrypto.pm	2019-09-22 23:47:36 UTC (rev 52157)
+++ trunk/Master/tlpkg/TeXLive/TLCrypto.pm	2019-09-23 18:04:33 UTC (rev 52158)
@@ -148,7 +148,9 @@
   if (!$::checksum_method) {
     setup_checksum_method();
   }
-  tldie("no checksum method available\n") if (!$::checksum_method);
+  tldie("TLCRYPTO::tlchecksum: no checksum method available\n")
+    if (!$::checksum_method);
+
   if (-r $file) {
     my ($out, $ret);
     if ($::checksum_method eq "openssl") {
@@ -167,10 +169,10 @@
       close(FILE);
       $ret = 0;
     } else {
-      tldie("unknown checksum program: $::checksum_method\n");
+      tldie("TLCRYPTO::tlchecksum: unknown checksum program: $::checksum_method\n");
     }
     if ($ret != 0) {
-      tlwarn("tlchecksum: cannot compute checksum: $file\n");
+      tlwarn("TLCRYPTO::tlchecksum: cannot compute checksum: $file\n");
       return "";
     }
     ddebug("tlchecksum: out = $out\n");
@@ -186,12 +188,13 @@
     }
     debug("tlchecksum($file): ===$cs===\n");
     if (length($cs) != 128) {
-      tlwarn("unexpected output from $::checksum_method: $out\n");
+      tlwarn("TLCRYPTO::tlchecksum: unexpected output from $::checksum_method:"
+             . " $out\n");
       return "";
     }
     return $cs;
   } else {
-    tlwarn("tlchecksum: given file not readable: $file\n");
+    tlwarn("TLCRYPTO::tlchecksum: given file not readable: $file\n");
     return "";
   }
 }