From 7fd7906c7a8b00fcc88a6a4ea848406273d349e5 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 27 Mar 2008 17:31:42 +0000 Subject: declare autologin_first --- perl-install/standalone/finish-install | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install index 2fa557e3f..d45750f7b 100755 --- a/perl-install/standalone/finish-install +++ b/perl-install/standalone/finish-install @@ -114,7 +114,7 @@ sub ask_users() { $users->[0]{home} ||= '/home/' . $users->[0]{name}; } my $autologin = any::get_autologin(); - $autologin_first = ($autologin->{autologin} eq $old_user || lc(get_conf('USER_AUTOLOGIN_FIRST')) eq "yes") && $autologin->{desktop}; + my $autologin_first = ($autologin->{autologin} eq $old_user || lc(get_conf('USER_AUTOLOGIN_FIRST')) eq "yes") && $autologin->{desktop}; any::add_users($users, $authentication); any::set_autologin($in->do_pkgs, $users->[0]{name}, $autologin_first) if $autologin_first; -- cgit v1.2.1