texlive[63676] Master/install-tl: install-tl: allow installation from

[commits+preining at tug.org]

Revision: 63676
          http://tug.org/svn/texlive?view=revision&revision=63676
Author:   preining
Date:     2022-06-21 02:09:29 +0200 (Tue, 21 Jun 2022)
Log Message:
-----------
install-tl: allow installation from live system with partial scheme support

Modified Paths:
--------------
    trunk/Master/install-tl

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2022-06-20 23:48:13 UTC (rev 63675)
+++ trunk/Master/install-tl	2022-06-21 00:09:29 UTC (rev 63676)
@@ -2021,12 +2021,20 @@
     $selscheme = $default_scheme;
   }
   if (!defined($tlpdb->get_package($selscheme))) {
+    # let us try scheme-minimal, and if also that is not available, scheme-infra
+    # which is required to be installed
     if (!defined($tlpdb->get_package("scheme-minimal"))) {
-      die("Aborting, cannot find either $selscheme or scheme-minimal");
+      if (!defined($tlpdb->get_package("scheme-infra"))) {
+        die("Aborting, cannot find either $selscheme or scheme-minimal or scheme-infra");
+      }
+      $default_scheme = "scheme-infra";
+    } else {
+      $default_scheme = "scheme-minimal";
     }
-    $default_scheme = "scheme-minimal";
     tlwarn("$0: No $selscheme, switching to $default_scheme.\n");
     $vars{'selected_scheme'} = $default_scheme;
+  } else {
+    $vars{'selected_scheme'} = $selscheme;
   }
   # make sure that we update %vars for collection_* if only selected_scheme
   # is there, but no collection information