From 5177658bbbdaa8778cff3a2ac4fabb765bbcd8fe Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 19 May 2008 08:37:41 +0000 Subject: 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 --- Master/tlpkg/bin/tlpfiles | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'Master/tlpkg/bin/tlpfiles') diff --git a/Master/tlpkg/bin/tlpfiles b/Master/tlpkg/bin/tlpfiles index ca8af22b6c9..209d79bc42d 100755 --- a/Master/tlpkg/bin/tlpfiles +++ b/Master/tlpkg/bin/tlpfiles @@ -21,24 +21,21 @@ use TeXLive::TLConfig; use TeXLive::TLPDB; use Pod::Usage; use Getopt::Long; +use TeXLive::TLUtils; our $FILE; our %DB_BY_FILE; # used privately below. our @opt_pkgof = (); -my $opt_debug = 0; my $help = 0; +TeXLive::TLUtils::process_logging_options(); + GetOptions("pkgof=s" => \@opt_pkgof, - "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 ()); -- cgit v1.2.3