summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-11 20:12:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-11 20:12:34 +0000
commit7125d7793927520e8dff0b6b3a02def0fbeda408 (patch)
tree513e69da959b9c97a8791e57ccc46a399053b4bb /perl-install
parentf3fabed82bd1c11a05b90dfdb35a0bb9e8c31e50 (diff)
downloaddrakx-7125d7793927520e8dff0b6b3a02def0fbeda408.tar
drakx-7125d7793927520e8dff0b6b3a02def0fbeda408.tar.gz
drakx-7125d7793927520e8dff0b6b3a02def0fbeda408.tar.bz2
drakx-7125d7793927520e8dff0b6b3a02def0fbeda408.tar.xz
drakx-7125d7793927520e8dff0b6b3a02def0fbeda408.zip
(addUser): fix
Diffstat (limited to 'perl-install')
-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);