summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index f1a7af736..b1e9876fe 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -943,6 +943,7 @@ sub setRootPassword {
title => N("Set root password"),
messages => N("Set root password"),
cancel => ($o->{security} <= 2 && !$::corporate ? N("No password") : ''),
+ focus_first => 1,
callbacks => {
complete => sub {
$sup->{password} eq $sup->{password2} or $o->ask_warn('', [ N("The passwords do not match"), N("Please try again") ]), return (1,0);