diff options
| author | damien <damien@mandriva.com> | 2002-02-25 18:55:19 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-02-25 18:55:19 +0000 |
| commit | 3072ecb88c8058c1414c19f360524cb74e7d9cb3 (patch) | |
| tree | 9d9dd8f6e269d2bf384eb03d775f701c6c7770b1 /perl-install/any.pm | |
| parent | 2f752b3d465e2d9338da2d266bb0ecefc08b2ba8 (diff) | |
| download | drakx-3072ecb88c8058c1414c19f360524cb74e7d9cb3.tar drakx-3072ecb88c8058c1414c19f360524cb74e7d9cb3.tar.gz drakx-3072ecb88c8058c1414c19f360524cb74e7d9cb3.tar.bz2 drakx-3072ecb88c8058c1414c19f360524cb74e7d9cb3.tar.xz drakx-3072ecb88c8058c1414c19f360524cb74e7d9cb3.zip | |
corrected modules parameters functions
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 7 |
1 files changed, 4 insertions, 3 deletions
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 ' ', |