focus_first focuses first editable entry (ie skip "title" entries)

(i wonder why with !$::isInstall it doesn't matter...)

1 files changed, 6 insertions, 0 deletions

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index c5f90942e..417b39126 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -465,6 +465,12 @@ sub _normalize_entries {
 sub ask_from_normalize {
     my ($o, $common, $l) = @_;
 
+    if ($common->{focus_first}) {
+	if (my $e = find { $_->{val} } @$l) {
+	    $e->{focus} = sub { 1 };
+	}
+    }
+
     _normalize_entries($o, $l);
 
     $l->[0]{focus} = sub { 1 } if $common->{focus_first};