From 9715cbde4f3d87a04aaa158c7ead1adf8a5ca845 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 20 Apr 2016 07:47:27 +0000 Subject: replace log with (d)debug in tlmgr.pl git-svn-id: svn://tug.org/texlive/trunk@40630 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'Master') 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; } -- cgit v1.2.3