diff options
| -rw-r--r-- | perl-install/interactive.pm | 6 |
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}; |