From 1002a97916b8da6957fd0080011a377818283b79 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 12 Apr 2001 15:22:54 +0000 Subject: (ask_from_entries_refH_powered_normalize): fix the test for empty lists --- perl-install/interactive.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'perl-install/interactive.pm') 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 ]); } -- cgit v1.2.1