diff options
author | Norbert Preining <preining@logic.at> | 2008-05-19 08:37:41 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-19 08:37:41 +0000 |
commit | 5177658bbbdaa8778cff3a2ac4fabb765bbcd8fe (patch) | |
tree | b00bfdb0be26f8f7ce3d626ac084b987c608c511 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | 58c870fa77e1ede0e7b21a7791d0fa5b8fd1542b (diff) |
big logging update, new logging facilities: info, debug, ddebug, tlwarn
and a way to automatically process the respective options -q and -v
via TeXLive::TLUtils::process_logging_options();
git-svn-id: svn://tug.org/texlive/trunk@8234 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 2785960538b..f3afba912c1 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -42,7 +42,7 @@ if (defined($::opt_lang)) { if ($foo) { $::lang = $foo; } else { - tllog($::LOG_DEBUG, "Didn't get any usuful code from reg_country: $foo...\n"); + debug("Didn't get any usuful code from reg_country: $foo...\n"); } } else { # we load POSIX and locale stuff @@ -214,7 +214,7 @@ sub run_menu { my $l = length($text{$l}); $c = $l if ($l > $c); } - tllog($::LOG_DDEBUG, "setting column widhts to a=$a, c=$c\n"); + debug("setting column widths to a=$a, c=$c\n"); calc_depends; $mw = MainWindow->new; |