From 1feaa0f7aed3f0823e5a69c626737b03b645b7cc Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 12 Apr 2001 13:49:42 +0000 Subject: removed strict die on empty list. --- perl-install/interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/interactive.pm') diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 567c2cef8..187fbc82e 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -248,7 +248,7 @@ 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'; + #@{$_->{list}} == () and die 'ask_from_list: empty list'; !($b && @{$_->{list}} <= 1); } @$l; -- cgit v1.2.1