From c18552d7a02dfc62ce43160b58db8ad606085cee Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 21 Feb 2000 17:59:09 +0000
Subject: no_comment

---
 perl-install/interactive.pm | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive.pm')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 79df5be2c..ac8ced5a2 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -112,12 +112,17 @@ sub ask_from_list2($$$$;$) {
 
     $o->ask_from_listW($title, [ deref($message) ], $l, $def || $l->[0]);
 }
-sub ask_many_from_list_ref($$$$;$) {
+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);
 }
-sub ask_many_from_list($$$$;$) {
+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);
+}
+sub ask_many_from_list {
     my ($o, $title, $message, $l, $def) = @_;
 
     my $val = [ map { my $i = $_; \$i } @$def ];
@@ -125,6 +130,14 @@ sub ask_many_from_list($$$$;$) {
     $o->ask_many_from_list_ref($title, $message, $l, $val) ?
       [ map { $$_ } @$val ] : undef;
 }
+sub ask_many_from_list_with_help {
+    my ($o, $title, $message, $l, $help, $def) = @_;
+
+    my $val = [ map { my $i = $_; \$i } @$def ];
+
+    $o->ask_many_from_list_with_help_ref($title, $message, $l, $help, $val) ?
+      [ map { $$_ } @$val ] : undef;
+}
 
 sub ask_from_entry {
     my ($o, $title, $message, $label, $def, %callback) = @_;
-- 
cgit v1.2.1