From 72be09561b1eb0a51048eaec1af096ddfe74aeb0 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 20 Mar 2008 17:39:11 +0000 Subject: match USER_AUTOLOGIN_FIRST value insensitively --- perl-install/standalone/finish-install | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/finish-install') diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install index 25c8cdd7e..84bda2e53 100755 --- a/perl-install/standalone/finish-install +++ b/perl-install/standalone/finish-install @@ -109,7 +109,7 @@ sub ask_users() { $users->[0]{home} ||= '/home/' . $users->[0]{name}; } my $autologin = any::get_autologin(); - $autologin_first = ($autologin->{autologin} eq $old_user || get_conf('USER_AUTOLOGIN_FIRST') eq "yes") && $autologin->{desktop}; + $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