summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/update-containers
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/update-containers')
-rwxr-xr-xMaster/tlpkg/bin/update-containers15
1 files changed, 10 insertions, 5 deletions
diff --git a/Master/tlpkg/bin/update-containers b/Master/tlpkg/bin/update-containers
index 20c66d40a4b..206e1da829d 100755
--- a/Master/tlpkg/bin/update-containers
+++ b/Master/tlpkg/bin/update-containers
@@ -18,14 +18,14 @@ use strict;
use TeXLive::TLConfig;
use TeXLive::TLPOBJ;
use TeXLive::TLPDB;
-use TeXLive::TLUtils qw/debug/;
+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_containerdir = "./archive";
my $opt_relative = 0;
my $help = 0;
@@ -36,6 +36,11 @@ GetOptions("containerdir=s" => \$opt_containerdir,
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";
@@ -79,17 +84,17 @@ sub main
if (defined($archiverevs{$pkg})) {
$oldrev = $archiverevs{$pkg};
} else {
- debug("found a new package without container: $pkg\n");
+ tllog($::LOG_DEBUG, "found a new package without container: $pkg\n");
}
my $tlp = $tlpdb->get_package($pkg);
my $newrev = 0;
if (defined($tlp)) {
$newrev = $tlp->revision;
} else {
- warn "It looks like $pkg has disappeared, you should remove its containers!\n";
+ tllog($::LOG_DEBUG, "It looks like $pkg has disappeared, you should remove its containers!\n");
}
if ($oldrev == $newrev) {
- debug("$pkg up to date\n");
+ tllog($::LOG_DEBUG, "$pkg up to date\n");
} elsif ($oldrev < $newrev) {
push @todopacks, $pkg;
} else {