summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-04 13:37:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-04 13:37:56 +0000
commit6a65f3be188d363cf62f316a4cb9cc84a0ed1544 (patch)
treec4de8bcab62b5b786d178a95486f71ac51a97cbf
parentb034de80a226a7421e58e5ea38d0785f899ed179 (diff)
downloaddrakx-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.pm6
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 {