From 3072ecb88c8058c1414c19f360524cb74e7d9cb3 Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 25 Feb 2002 18:55:19 +0000 Subject: corrected modules parameters functions --- perl-install/any.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 61bf7ed55..f7a6ff44e 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -702,9 +702,10 @@ not cause any damage.", $l), [ __("Autoprobe"), __("Specify options") ], "Autoprobe") ne "Autoprobe") { ASK: if (@names >= 0) { - my @l = $in->ask_from_entries('', -_("You may now provide its options to module %s.", $l), - \@names) or return; + + my @args = map { my $i = ''; /TOOLTIP=>(.*)/; my $t = $1; s/TOOLTIP=>.*//;print "tooltip : $t\n"; { label => $_, val => \$i, help => $t} } @names; + my @l = $in->ask_from('', _("You may now provide its options to module %s.\nNote that any addresse should be entered with the prefix 0x like '0x123'", $l), \@args) ? map { ${$_->{val}} } @args : undef or return; + @options = modparm::get_options_result($m, @l); } else { @options = split ' ', -- cgit v1.2.1