diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-02-04 13:37:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-02-04 13:37:56 +0000 |
| commit | 6a65f3be188d363cf62f316a4cb9cc84a0ed1544 (patch) | |
| tree | c4de8bcab62b5b786d178a95486f71ac51a97cbf | |
| parent | b034de80a226a7421e58e5ea38d0785f899ed179 (diff) | |
| download | drakx-6a65f3be188d363cf62f316a4cb9cc84a0ed1544.tar drakx-6a65f3be188d363cf62f316a4cb9cc84a0ed1544.tar.gz drakx-6a65f3be188d363cf62f316a4cb9cc84a0ed1544.tar.bz2 drakx-6a65f3be188d363cf62f316a4cb9cc84a0ed1544.tar.xz drakx-6a65f3be188d363cf62f316a4cb9cc84a0ed1544.zip | |
->ask_from_entry and ->ask_from_entries are better with focus_first
| -rw-r--r-- | perl-install/interactive.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index b24898350..1d658eda3 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -266,9 +266,9 @@ sub ask_from_entries { my @l = map { my $i = ''; { label => $_, val => \$i } } @$l; - $o->ask_from($title, $message, \@l, %callback) ? - map { ${$_->{val}} } @l : - undef; + $o->ask_from_({ title => $title, messages => $message, callbacks => \%callback, + focus_first => 1 }, \@l) or return; + map { ${$_->{val}} } @l; } sub ask_from__add_modify_remove { |