From 5ab926badb5ad24f8b4b994ad5f18f0d2b3a6953 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 10 Jan 2008 10:53:59 +0000 Subject: add logging facilities, see extra email git-svn-id: svn://tug.org/texlive/trunk@6176 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlprm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/bin/tlprm') diff --git a/Master/tlpkg/bin/tlprm b/Master/tlpkg/bin/tlprm index 24c16ff624a..4f2bbab72ca 100755 --- a/Master/tlpkg/bin/tlprm +++ b/Master/tlpkg/bin/tlprm @@ -25,7 +25,7 @@ use Pod::Usage; use Getopt::Long; use Cwd 'abs_path'; -our $opt_debug = 0; +my $opt_debug = 0; my $opt_svn = 1; my $help = 0; @@ -34,6 +34,11 @@ GetOptions("svn!", pod2usage(-exitstatus => 0, -verbose => 2) if $help; +if ($opt_debug) { + $::LOGLEVELFILE = $::LOG_DDDEBUG; + $::LOGLEVELTERMINAL = $::LOG_DDDEBUG; +} + exit (&main ()); @@ -48,7 +53,7 @@ sub main foreach my $f (@ARGV) { my $obj = $tlpdb->get_package ($f); if (! $obj) { - warn "$0: no TeX Live package named $f.\n"; + tllog($::LOG_NORMAL, "$0: no TeX Live package named $f.\n"); $failure_count++; next; } -- cgit v1.2.3