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.pm4
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);