diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d8af12044..911875063 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -786,16 +786,18 @@ sub setRootPassword { sub addUser { my ($o, $clicked) = @_; $o->{users} ||= []; + if ($o->{security} < 1) { push @{$o->{users}}, { password => 'mandrake', realname => 'default', icon => 'automagic' } if !member('mandrake', map { $_->{name} } @{$o->{users}}); } if (($o->{security} >= 1 || $clicked)) { - any::ask_users($o->{prefix}, $o, $o->{users}, $o->{security}); + any::ask_users($o->{prefix}, $o->{users}, $o->{security}); } install_steps::addUser($o); } +# any::get_autologin($o->{prefix}, $o); |