diff options
Diffstat (limited to 'perl-install/standalone/finish-install')
| -rwxr-xr-x | perl-install/standalone/finish-install | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install index cd5065026..201ca674f 100755 --- a/perl-install/standalone/finish-install +++ b/perl-install/standalone/finish-install @@ -104,9 +104,9 @@ sub ask_authentication() { #- USER_RENAME_FROM=<old user>: create the new user by renaming <old user> #- USER_AUTOLOGIN_FIRST: configure autologin for the first added user sub ask_users() { - my $users = []; - my $ask_root = to_bool(lc(get_conf('USERS')) eq 'with_root'); - any::ask_user_and_root($in, $ask_root, $users, $security); + my $users = []; + my $superuser = to_bool(lc(get_conf('USERS')) eq 'with_root') && {}; + any::ask_user_and_root($in, $superuser, $users, $security); my $old_user = get_conf('USER_RENAME_FROM'); if (@$users && $old_user) { $users->[0]{rename_from} = $old_user; |