summaryrefslogtreecommitdiff
path: root/Master/tlpkg/etc/tl-update-containers.diff
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/etc/tl-update-containers.diff')
-rw-r--r--Master/tlpkg/etc/tl-update-containers.diff81
1 files changed, 0 insertions, 81 deletions
diff --git a/Master/tlpkg/etc/tl-update-containers.diff b/Master/tlpkg/etc/tl-update-containers.diff
deleted file mode 100644
index 82d44a6b4a8..00000000000
--- a/Master/tlpkg/etc/tl-update-containers.diff
+++ /dev/null
@@ -1,81 +0,0 @@
-Index: tl-update-containers
-===================================================================
---- tl-update-containers (revision 10389)
-+++ tl-update-containers (working copy)
-@@ -23,16 +23,21 @@
- use Pod::Usage;
- use File::Path;
-
-+
-+my @critical_pkg_list = qw/bin-texlive texlive\.infra/;
-+
- our $mydir;
- my $opt_location = ".";
- my $opt_relative = 0;
- my $opt_recreate = 0;
- my $help = 0;
-+my $opt_all = 0;
-
- TeXLive::TLUtils::process_logging_options();
- GetOptions(
- "location=s" => \$opt_location,
- "recreate" => \$opt_recreate,
-+ "all|a" => \$opt_all,
- "help|?" => \$help) or pod2usage(1);
-
- pod2usage(-exitstatus => 0, -verbose => 2) if $help;
-@@ -144,9 +149,30 @@
- &TeXLive::TLUtils::setup_programs("$Master/tlpkg/installer");
-
- # get list of packages.
-- for my $pkg (sort @todopacks) {
-+ PACKS: for my $pkg (sort @todopacks) {
- next if ($pkg eq "00texlive.config");
- next if ($pkg eq "00texlive.installer");
-+ foreach my $manualpkgre (@critical_pkg_list) {
-+ # we match the initial string of the package name, so that all the
-+ # .arch packages are skipped, too
-+ if ($pkg =~ m/^$manualpkgre/) {
-+ if ($opt_all || $opt_recreate) {
-+ tlwarn ("updating container for $pkg due to -all option!\n");
-+ last; # of the manualpkgre checks
-+ } else {
-+ tlwarn ("not updating $pkg since it it in the manual update list!\n");
-+ # we assume that the packages in @critical_pkg_list always
-+ # exist, so if they are there then the number of updated packages
-+ # should be reduced.
-+ $count{'updated'}--;
-+ # the following line skips all other regexp checks on critical
-+ # packages and skips everything below this big for list (the
-+ # part which actually builds the containers) and continues with
-+ # the next package (the PACKS: for my $pkg (sort @todopacks) line
-+ next PACKS;
-+ }
-+ }
-+ }
- my $obj = $tlpdb->get_package ($pkg);
- die "$0: no TL package named $pkg in $Master" if ! $obj;
- debug("updating $pkg containers ...\n");
-@@ -198,7 +224,7 @@
- }
-
- # next we remove those containers which have been gone!
-- foreach my $op (@removepacks) {
-+ for my $op (@removepacks) {
- info("$op has disappeared, removing its containers\n");
- `rm $opt_containerdir/$op.*`;
- $nettlpdb->remove_package($op);
-@@ -247,6 +273,13 @@
- The location to find the previously generated containers;
- default is C<./archive>.
-
-+=item B<-recreate>
-+Does a full rebuild of all packages.
-+
-+=item B<-all|-a>
-+Will update also packages which are exempted due to possible breakage
-+(currently texlive.infra and bin-texlive).
-+
- =back
-
- The standard options C<-help> and C<-debug> are also accepted.