summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 6cfc277f2..ed6b0184d 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -26,7 +26,8 @@ use common;
#- range (with min, max)
#- combo (with list, not_edit)
#- list (with list, icon2f (aka icon), separator (aka tree), format (aka pre_format function),
-#- help can be a hash or a function)
+#- help can be a hash or a function,
+#- allow_empty_list disables the special cases for 0 and 1 element lists)
#- entry (the default) (with hidden)
#
#- heritate from this class and you'll get all made interactivity for same steps.
@@ -270,7 +271,7 @@ sub ask_from_normalize {
#- don't display empty lists and one element lists
@$l = grep {
- if ($_->{list} && $_->{not_edit}) {
+ if ($_->{list} && $_->{not_edit} && !$_->{allow_empty_list}) {
if (@{$_->{list}} == ()) {
eval {
require log;