summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlprm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-19 08:37:41 +0000
committerNorbert Preining <preining@logic.at>2008-05-19 08:37:41 +0000
commit5177658bbbdaa8778cff3a2ac4fabb765bbcd8fe (patch)
treeb00bfdb0be26f8f7ce3d626ac084b987c608c511 /Master/tlpkg/bin/tlprm
parent58c870fa77e1ede0e7b21a7791d0fa5b8fd1542b (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/bin/tlprm')
-rwxr-xr-xMaster/tlpkg/bin/tlprm11
1 files changed, 4 insertions, 7 deletions
diff --git a/Master/tlpkg/bin/tlprm b/Master/tlpkg/bin/tlprm
index 72655fe04de..38c11d57780 100755
--- a/Master/tlpkg/bin/tlprm
+++ b/Master/tlpkg/bin/tlprm
@@ -21,24 +21,21 @@ use strict;
use TeXLive::TLConfig;
use TeXLive::TLPDB;
use TeXLive::TLPSRC;
+use TeXLive::TLUtils;
use Pod::Usage;
use Getopt::Long;
use Cwd 'abs_path';
-my $opt_debug = 0;
my $opt_svn = 1;
my $help = 0;
+TeXLive::TLUtils::process_logging_options();
+
GetOptions("svn!",
- "debug!", "help|?" => \$help) or pod2usage(1);
+ "help|?" => \$help) or pod2usage(1);
pod2usage(-exitstatus => 0, -verbose => 2) if $help;
-if ($opt_debug) {
- $::LOGLEVELFILE = $::LOG_DDDEBUG;
- $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
-}
-
exit (&main ());