From 1dc7cb7c13d5f0a68dd01b44ee924567fbd6474f Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 27 Mar 2008 17:33:36 +0000 Subject: really store root password when using simplified user+root dialog --- perl-install/standalone/finish-install | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') 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=: create the new user by renaming #- 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; -- cgit v1.2.1