summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 {