summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/interactive.pm6
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};