diff options
| -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 { |