summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpdb2container
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlpdb2container')
-rwxr-xr-xMaster/tlpkg/bin/tlpdb2container10
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 = "";