replace log with (d)debug in tlmgr.pl

git-svn-id: svn://tug.org/texlive/trunk@40630 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 8 insertions, 8 deletions

diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index 249cae4f210..c2fad3f1e62 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -104,7 +104,7 @@ use TeXLive::TLWinGoo;
 use TeXLive::TLDownload;
 use TeXLive::TLConfFile;
 TeXLive::TLUtils->import(qw(member info give_ctan_mirror win32 dirname
-                            mkdirhier copy log debug tlcmp));
+                            mkdirhier copy debug tlcmp));
 use TeXLive::TLPaper;
 
 #
@@ -746,7 +746,7 @@ sub do_cmd_and_check {
   }
   if ($ret == 0) {
     info("done running $cmd.\n");
-    log("--output of $cmd:\n$out\n--end of output of $cmd.");
+    ddebug("--output of $cmd:\n$out\n--end of output of $cmd.");
     return ($F_OK);
   } else {
     info("\n");
@@ -864,7 +864,7 @@ sub handle_execute_actions {
     if ($opt_fmt && !$::regenerate_all_formats) {
       # first regenerate all formats --byengine 
       for my $e (keys %updated_engines) {
-        log ("updating formats based on $e\n");
+        debug ("updating formats based on $e\n");
         $errors += do_cmd_and_check
                     ("$invoke_fmtutil --no-error-if-no-format --byengine $e");
       }
@@ -873,7 +873,7 @@ sub handle_execute_actions {
         next if defined($updated_engines{$format_to_engine{$f}});
         # ignore disabled formats
         next if !$::execute_actions{'enable'}{'formats'}{$f}{'mode'};
-        log ("(re)creating format dump $f\n");
+        debug ("(re)creating format dump $f\n");
         $errors += do_cmd_and_check ("$invoke_fmtutil --byfmt $f");
         $done_formats{$f} = 1;
       }
@@ -5710,7 +5710,7 @@ sub handle_gpg_config_settings {
   # now we know whether we setup gpg or not
   if ($do_setup_gpg) {
     if (TeXLive::TLUtils::setup_gpg($Master)) {
-      log("will verify cryptographic signatures\n")
+      debug("will verify cryptographic signatures\n")
     } else {
       my $prefix = "$prg: No gpg found"; # just to shorten the strings
       if ($opts{'verify-downloads'}) {
@@ -5732,9 +5732,9 @@ sub handle_gpg_config_settings {
       # log normally is *NOT* logged to a file
       # tlmgr does by default *NOT* set up a log file (cmd line option)
       # user requested it, so don't bother with output
-      log("$prefix, requested on command line\n");
+      debug("$prefix, requested on command line\n");
     } elsif (defined($config{'verify-downloads'})) {
-      log("$prefix, requested in config file\n");
+      debug("$prefix, requested in config file\n");
     } else {
       tldie("$prg: how could this happen? gpg setup.\n");
     }
@@ -6212,7 +6212,7 @@ sub clear_old_backups {
       if ($verb) {
         info ("Removing backup $backupdir/$pkg.r$e.tar.xz\n");
       } else {
-        log ("Removing backup $backupdir/$pkg.r$e.tar.xz\n");
+        debug ("Removing backup $backupdir/$pkg.r$e.tar.xz\n");
       }
       unlink("$backupdir/$pkg.r$e.tar.xz") unless $dryrun;
     }