diff options
Diffstat (limited to 'Master/tlpkg/bin/update-containers')
-rwxr-xr-x | Master/tlpkg/bin/update-containers | 15 |
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 { |