diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 1 |
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); |