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/tlpfiles | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/bin/tlpfiles') diff --git a/Master/tlpkg/bin/tlpfiles b/Master/tlpkg/bin/tlpfiles index 1409b875569..ca8af22b6c9 100755 --- a/Master/tlpkg/bin/tlpfiles +++ b/Master/tlpkg/bin/tlpfiles @@ -26,13 +26,19 @@ our $FILE; our %DB_BY_FILE; # used privately below. our @opt_pkgof = (); -our $opt_debug = 0; +my $opt_debug = 0; my $help = 0; GetOptions("pkgof=s" => \@opt_pkgof, "debug!", "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