texlive[52886] Master/tlpkg/bin/tl-update-containers: use

[commits+karl at tug.org]

Revision: 52886
          http://tug.org/svn/texlive?view=revision&revision=52886
Author:   karl
Date:     2019-11-22 19:53:41 +0100 (Fri, 22 Nov 2019)
Log Message:
-----------
use TLConfig::CriticalPackagesList instead of duplicating

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/tl-update-containers

Modified: trunk/Master/tlpkg/bin/tl-update-containers
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-containers	2019-11-22 18:45:33 UTC (rev 52885)
+++ trunk/Master/tlpkg/bin/tl-update-containers	2019-11-22 18:53:41 UTC (rev 52886)
@@ -29,9 +29,6 @@
 
 my $script_master;
 
-# packages matching these re's will not be updated without --all.
-my @critical_pkg_list = qw/texlive\.infra tlperl\.win32/;
-
 our ($mydir, $vc_id);
 my $opt_all = 0;
 my $opt_dry = 0;
@@ -244,7 +241,7 @@
   # get list of packages.
   PACKS: for my $pkg (sort @todopacks) {
     next if $pkg =~ /00texlive/;
-    foreach my $manualpkgre (@critical_pkg_list) {
+    foreach my $manualpkgre (@TeXLive::TLConfig::CriticalPackagesList) {
       # we match the initial string of the package name, so that all the
       # .arch packages are skipped, too
       if ($pkg =~ m/^$manualpkgre/) {
@@ -371,7 +368,7 @@
   }
   # next we remove containers for packages that have been deleted.
   REMOVEPACK: for my $op (@removepacks) {
-    foreach my $manualpkgre (@critical_pkg_list) {
+    foreach my $manualpkgre (@TeXLive::TLConfig::CriticalPackagesList) {
       # we match the initial string of the package name, so that all the
       # .arch packages are skipped, too
       if ($op =~ m/^$manualpkgre/) {