summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpsrc2container
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlpsrc2container')
-rwxr-xr-xMaster/tlpkg/bin/tlpsrc2container13
1 files changed, 9 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2container b/Master/tlpkg/bin/tlpsrc2container
index f8bec749499..a65aa9975ef 100755
--- a/Master/tlpkg/bin/tlpsrc2container
+++ b/Master/tlpkg/bin/tlpsrc2container
@@ -28,7 +28,7 @@ chomp (my $opt_master = `cd $::mydir/../.. && pwd`);
my $opt_catalogue = "";
my $opt_type = "zip";
my $opt_outputdir = "./zip";
-our $opt_debug = 0;
+my $opt_debug = 0;
my $help = 0;
GetOptions(
@@ -41,6 +41,11 @@ GetOptions(
pod2usage(-exitstatus => 0, -verbose => 2) if $help;
+if ($opt_debug) {
+ $::LOGLEVELFILE = $::LOG_DDDEBUG;
+ $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
+}
+
exit(&main ());
sub main
@@ -60,10 +65,10 @@ sub main
my $tlc = undef;
if (! -d $opt_catalogue) {
- warn "$0: -c /Cat/a/logue not given, continuing without it.\n";
+ tllog ($::LOG_NORMAL, "$0: -c /Cat/a/logue not given, continuing without it.\n");
} else {
require TeXLive::TeXCatalogue; # not at compile time, for now anyway.
- warn "$0: reading TeX Catalogue tree $opt_catalogue ...\n";
+ tllog ($::LOG_NORMAL, "$0: reading TeX Catalogue tree $opt_catalogue ...\n");
$tlc = TeXLive::TeXCatalogue->new( "location" => $opt_catalogue );
}
@@ -74,7 +79,7 @@ sub main
@ARGV = glob ("*.tlpsrc");
}
- warn "$0: reading Master tree $opt_master ...\n";
+ tllog ($::LOG_NORMAL, "$0: reading Master tree $opt_master ...\n");
my $tltree = TeXLive::TLTREE->new( "svnroot" => $opt_master );
$tltree->init_from_svn;