From ec02a0c77c5b010a6c963378e6420007b70b6faa Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 7 Aug 2008 22:44:18 +0000 Subject: 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 --- Master/install-tl | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'Master') 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 { -- cgit v1.2.3