diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2container')
-rwxr-xr-x | Master/tlpkg/bin/tlpdb2container | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/tlpdb2container b/Master/tlpkg/bin/tlpdb2container index 33a4744f67f..2f77dd4acc6 100755 --- a/Master/tlpkg/bin/tlpdb2container +++ b/Master/tlpkg/bin/tlpdb2container @@ -18,13 +18,14 @@ use strict; use TeXLive::TLConfig; use TeXLive::TLPOBJ; use TeXLive::TLPDB; +use TeXLive::TLUtils; use Getopt::Long; use Pod::Usage; use File::Path; my $opt_all = 0; our $mydir; -our $opt_debug = 0; +my $opt_debug = 0; my $opt_outputdir = "./archive"; my $opt_relative = 0; my $help = 0; @@ -37,6 +38,11 @@ GetOptions("outputdir=s" => \$opt_outputdir, pod2usage(-exitstatus => 0, -verbose => 2) if $help; +if ($opt_debug) { + $::LOGLEVELFILE = $::LOG_DDDEBUG; + $::LOGLEVELTERMINAL = $::LOG_DDDEBUG; +} + my $srcsplit = 0; my $docsplit = 0; my $type = "lzma"; @@ -62,7 +68,7 @@ sub main if (($format eq "lzma") || ($format eq "zip")) { $type = $format; } else { - warn "unknown container format specified in 00texlive.config: $format\nIgnoring and continuing with $type!\n"; + tllog($::LOG_NORMAL, "unknown container format specified in 00texlive.config: $format\nIgnoring and continuing with $type!\n"); } # get list of packages. my $last = ""; |