diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 9be687103..c269ff682 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -1181,7 +1181,8 @@ sub addUser { if !member('mandrake', map { $_->{name} } @{$o->{users}}); } if ($o->{security} >= 1 || $clicked) { - any::ask_users($o, $o->{users}, $o->{security}); + my @suggested_names = @{$o->{users}} ? () : all("$::prefix/home"); + any::ask_users($o, $o->{users}, $o->{security}, \@suggested_names); } add2hash($o, any::get_autologin()); any::autologin($o, $o); |