diff options
author | Norbert Preining <preining@logic.at> | 2008-08-07 22:44:18 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-08-07 22:44:18 +0000 |
commit | ec02a0c77c5b010a6c963378e6420007b70b6faa (patch) | |
tree | 82bfc3ccdf1e0163552ec4fcc2a73c7f41a83b79 /Master/install-tl | |
parent | 4c3b6f8fda7016906b0a4b5a6c7225cb3d318a9b (diff) |
install-tl: if the $default_scheme = "scheme-full" is not defined, switch
to scheme-minimal, and if that is also not defined, die.
git-svn-id: svn://tug.org/texlive/trunk@10152 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-x | Master/install-tl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/install-tl b/Master/install-tl index b1103da9830..adc4ef190b4 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -703,6 +703,16 @@ sub load_tlpdb { $vars{'sys_bin'} = $tlpdb->option_sys_bin; $vars{'sys_man'} = $tlpdb->option_sys_man; $vars{'sys_info'} = $tlpdb->option_sys_info; + + # check that the default scheme is actually present, otherwise switch to + # scheme-minimal + if (!defined($tlpdb->get_package($default_scheme))) { + if (!defined($tlpdb->get_package("scheme-minimal"))) { + die("Something is going seriously bad, cannot find nor $default_scheme nor scheme_minimal!"); + } + $default_scheme = "scheme-minimal"; + $vars{'selected_scheme'} = $default_scheme; + } } sub initialize_collections { |