Master/tlpkg/etc/applied.include-schemes.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

Index: install-tl
===================================================================
--- install-tl	(revision 10152)
+++ install-tl	(working copy)
@@ -490,6 +490,22 @@
     &$h();
   }
   do_postinst_stuff();
+  # now we save every scheme that is fully covered by the stuff we have
+  # installed to the $localtlpdb
+  foreach my $s ($tlpdb->schemes) {
+    my $stlp = $tlpdb->get_package($s);
+    die ("That cannot happen, $s not defined in tlpdb") unless defined($stlp);
+    my $incit = 1;
+    foreach my $d ($stlp->depends) {
+      if (!defined($localtlpdb->get_package($d))) {
+        $incit = 0;
+        last;
+      }
+    }
+    if ($incit) {
+      $localtlpdb->add_tlpobj($stlp);
+    }
+  }
   $localtlpdb->save unless $vars{'from_dvd'};
   foreach $h (@::end_install_hook) {
     &$h();