texlive[55178] Master/tlpkg/TeXLive: debug msg prefixes, text

[commits+karl at tug.org]

Revision: 55178
          http://tug.org/svn/texlive?view=revision&revision=55178
Author:   karl
Date:     2020-05-17 18:46:24 +0200 (Sun, 17 May 2020)
Log Message:
-----------
debug msg prefixes, text

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

Modified: trunk/Master/tlpkg/TeXLive/TLCrypto.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLCrypto.pm	2020-05-17 16:46:07 UTC (rev 55177)
+++ trunk/Master/tlpkg/TeXLive/TLCrypto.pm	2020-05-17 16:46:24 UTC (rev 55178)
@@ -260,7 +260,7 @@
     if ($is_main) {
       tldie("$0: main database at $path is not signed: $m\n");
     }
-    debug("$0: remote database checksum is not signed, continuing anyway: $m\n");
+    debug("$0: remote database checksum is not signed, continuing anyway\n");
     return(0, $r);
   } elsif ($r == $VS_EXPKEYSIG) {
     debug("$0: good signature bug gpg key expired, continuing anyway!\n");

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2020-05-17 16:46:07 UTC (rev 55177)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2020-05-17 16:46:24 UTC (rev 55178)
@@ -2035,13 +2035,13 @@
 sub remove_link_dir_dir {
   my ($from, $to) = @_;
   if ((-d "$to") && (-w "$to")) {
-    debug("removing links from $from to $to\n");
+    debug("TLUtils::remove_link_dir_dir: removing links from $from to $to\n");
     chomp (@files = `ls "$from"`);
     my $ret = 1;
     foreach my $f (@files) {
       next if (! -r "$to/$f");
       if ($f eq "man") {
-        debug("not considering man in $to, it should not be from us!\n");
+        debug("TLUtils::remove_link_dir_dir: not considering man in $to, it should not be from us!\n");
         next;
       }
       if ((-l "$to/$f") &&
@@ -2049,7 +2049,7 @@
         $ret = 0 unless unlink("$to/$f");
       } else {
         $ret = 0;
-        tlwarn ("not removing $to/$f, not a link or wrong destination!\n");
+        tlwarn ("TLUtils::remove_link_dir_dir: not removing $to/$f, not a link or wrong destination!\n");
       }
     }
     # try to remove the destination directory, it might be empty and
@@ -2057,7 +2057,7 @@
     # `rmdir "$to" 2>/dev/null`;
     return $ret;
   } else {
-    tlwarn ("destination $to not writable, no removal of links done!\n");
+    tlwarn ("TLUtils::remove_link_dir_dir: destination $to not writable, no removal of links done!\n");
     return 0;
   }
 }
@@ -2087,7 +2087,7 @@
 
   # man
   my $top_man_dir = "$Master/texmf-dist/doc/man";
-  debug("$mode symlinks for man pages to $sys_man from $top_man_dir\n");
+  debug("TLUtils::add_remove_symlinks: $mode symlinks for man pages to $sys_man from $top_man_dir\n");
   if (! -d $top_man_dir) {
     ; # better to be silent?
     #info("skipping add of man symlinks, no source directory $top_man_dir\n");
@@ -2117,7 +2117,7 @@
         }
         #`rmdir "$sys_man" 2>/dev/null` if ($mode eq "remove");
       } else {
-        tlwarn("man symlink destination ($sys_man) not writable, "
+        tlwarn("TLUtils::add_remove_symlinks: man symlink destination ($sys_man) not writable, "
           . "cannot $mode symlinks.\n");
         $errors++;
       }
@@ -2126,7 +2126,7 @@
   
   # we collected errors in $errors, so return the negation of it
   if ($errors) {
-    info("$mode of symlinks had $errors error(s), see messages above.\n");
+    info("TLUtils::add_remove_symlinks: $mode of symlinks had $errors error(s), see messages above.\n");
     return $F_ERROR;
   } else {
     return $F_OK;