From dddfb90059117e6dde52c09e79ba0c8672942b53 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 17 Apr 2000 15:42:29 +0000 Subject: no_comment --- perl-install/interactive.pm | 17 +++++------------ 1 file changed, 5 insertions(+), 12 deletions(-) (limited to 'perl-install/interactive.pm') diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index e09838d6b..b6beb96a4 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -155,20 +155,13 @@ sub ask_from_treelistW($$$$;$) { sub ask_many_from_list_ref { - my ($o, $title, $message, $l, $val) = @_; - return 1 if @$l == 0; - $o->ask_many_from_list_refW($title, [ deref($message) ], $l, $val); + my ($o, $title, $message, @l) = @_; + $o->ask_many_from_list_with_help_ref($title, [ deref($message) ], map { ($_->[0], [], $_->[1]) } combine(2, @l)); } sub ask_many_from_list_with_help_ref { - my ($o, $title, $message, $l, $help, $val) = @_; - return 1 if @$l == 0; - $o->ask_many_from_list_with_help_refW($title, [ deref($message) ], $l, $help, $val); -} - -#- defaults to without help -sub ask_many_from_list_with_help_refW { - my ($o, $title, $messages, $list, $help, $val) = @_; - $o->ask_many_from_list_refW($title, $messages, $list, $val); + my ($o, $title, $message, @l) = @_; + my @L = grep { $_->[0] } combine(3, @l) or return 1; + $o->ask_many_from_list_with_help_refW($title, [ deref($message) ], @L); } sub ask_many_from_list { -- cgit v1.2.1