(ask_from_entries_refH_powered_normalize): fix the test for empty lists

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 ]);
 }