diff options
-rwxr-xr-x | Master/install-tl | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/install-tl b/Master/install-tl index 0701e91272f..7dcdc33c77f 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -1777,12 +1777,16 @@ sub create_profile { foreach my $key (sort keys %vars) { $instcols{$key} = 1 if $key=~/^collection/ and $vars{$key}==1; } - my $scheme=$tlpdb->get_package($vars{'selected_scheme'}); - if (!defined($scheme)) { - die ("Scheme $vars{selected_scheme} not defined.\n"); - } - for my $scheme_content ($scheme->depends) { - delete($instcols{"$scheme_content"}) if ($scheme_content=~/^collection-/); + # for anything but "scheme-custom" we delete the contained + # collections from the list + if ($vars{'selected_scheme'} ne "scheme-custom") { + my $scheme=$tlpdb->get_package($vars{'selected_scheme'}); + if (!defined($scheme)) { + die ("Scheme $vars{selected_scheme} not defined.\n"); + } + for my $scheme_content ($scheme->depends) { + delete($instcols{"$scheme_content"}) if ($scheme_content=~/^collection-/); + } } # if there are still collection left, we keep all of them my $save_cols = (keys(%instcols) ? 1 : 0); |