summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 187fbc82e..0ebe74434 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -247,9 +247,12 @@ sub ask_from_entries_refH_powered_normalize {
#- don't display empty lists and one element lists
@$l = grep {
- my $b = $_->{list} && $_->{not_edit};
- #@{$_->{list}} == () and die 'ask_from_list: empty list';
- !($b && @{$_->{list}} <= 1);
+ if ($_->{list} && $_->{not_edit}) {
+ @{$_->{list}} == () and die 'ask_from_list: empty list';
+ @{$_->{list}} > 1;
+ } else {
+ 1;
+ }
} @$l;
$common->{advanced_label} ||= _("Advanced");
@@ -261,6 +264,7 @@ sub ask_from_entries_refH_powered_normalize {
sub ask_from_entries_refH_powered {
my ($o, $common, $l) = @_;
ask_from_entries_refH_powered_normalize($o, $common, $l);
+
@$l or return 1;
$o->ask_from_entries_refW($common, [ grep { !$_->{advanced} } @$l ], [ grep { $_->{advanced} } @$l ]);
}