diff options
author | Karl Berry <karl@freefriends.org> | 2024-03-30 15:39:30 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2024-03-30 15:39:30 +0000 |
commit | 2f4e2f4e61e34ab99691754741300f42368a16c5 (patch) | |
tree | 2b4d7a4b5c96f5cdb0853696b192c43e19b6b8c4 /Master/tlpkg/bin/tl-update-containers | |
parent | 4a0fac46e69e8bbb0f12660f18bf051297eefaf9 (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-x | Master/tlpkg/bin/tl-update-containers | 12 |
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"); |