From 6a65f3be188d363cf62f316a4cb9cc84a0ed1544 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Feb 2004 13:37:56 +0000
Subject: ->ask_from_entry and ->ask_from_entries are better with focus_first

---
 perl-install/interactive.pm | 6 +++---
 1 file 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 {
-- 
cgit v1.2.1