summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-containers
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2024-03-30 15:39:30 +0000
committerKarl Berry <karl@freefriends.org>2024-03-30 15:39:30 +0000
commit2f4e2f4e61e34ab99691754741300f42368a16c5 (patch)
tree2b4d7a4b5c96f5cdb0853696b192c43e19b6b8c4 /Master/tlpkg/bin/tl-update-containers
parent4a0fac46e69e8bbb0f12660f18bf051297eefaf9 (diff)
doc,sync,debug
git-svn-id: svn://tug.org/texlive/trunk@70814 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-containers12
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers
index 7f372fa5e67..ab2da939889 100755
--- a/Master/tlpkg/bin/tl-update-containers
+++ b/Master/tlpkg/bin/tl-update-containers
@@ -189,12 +189,14 @@ sub main {
info("$prg: container(s) for $pkg disappeared, recreating them.\n");
push @todopacks, $pkg;
push (@pkgs_updated, $pkg);
+ debug(" pushed disappeared to updated: $pkg\n");
} else {
$count_unchanged++;
}
} elsif ($oldrev < $newrev) {
push @todopacks, $pkg;
push (@pkgs_updated, $pkg) if $oldrev;
+ debug(" pushed older to updated: $pkg ($oldrev < $newrev)\n");
} else {
# This can happen when packages get renamed or files get
# shuffled from one package to another.
@@ -242,7 +244,9 @@ sub main {
}
# get list of packages.
- PACKS: for my $pkg (sort @todopacks) {
+ PACKS:
+ debug("at PACKS: todo = @todopacks\n");
+ for my $pkg (sort @todopacks) {
next if $pkg =~ /00texlive/;
# we make links from unversioned to versioned containers; this
# variable is an override for debugging:
@@ -262,7 +266,9 @@ sub main {
tlwarn("$prg: Skipping critical $pkg\n");
# we assume that the critical packages always exist, so reduce
# the number of updated packages.
+ debug("before remove_from_list, updated: @pkgs_updated\n");
@pkgs_updated = &remove_from_list (\@pkgs_updated, $pkg);
+ debug("after remove_from_list, updated: @pkgs_updated\n");
# the following line skips all other regexp checks on critical
# packages and skips everything below this (the part which
@@ -416,6 +422,7 @@ sub main {
# remove non-symlinked .rNNN files.
&rcheck_containerdir ($opt_containerdir);
+ #
if ($opt_recreate) {
info("$prg: all packages recreated.\n");
} else {
@@ -427,9 +434,6 @@ sub main {
info(@list ? ": @list" : ".");
info("\n");
}
- print "$prg: ", 0 + @pkgs_new, " newtest (@pkgs_new)\n";
- print "$prg: ", 0 + @pkgs_removed, " rmtest (@pkgs_removed)\n";
- print "$prg: ", 0 + @pkgs_updated, " updtest (@pkgs_updated)\n";
info("$prg: $count_unchanged unchanged.\n");
} else {
info("$prg: no containers to be updated.\n");