From 78dcad1b7089103e30ede8bb815ddc92b9f68578 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Dec 2002 17:38:42 +0000
Subject: (get_autologin): $o->{autologin} is set to the chosen user only if
 AUTOLOGIN is set (it now mirrors what set_autologin() does)

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index b61cb2849..9d703befe 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -360,7 +360,7 @@ sub pack_passwd {
 sub get_autologin {
     my ($prefix, $o) = @_;
     my %l = getVarsFromSh("$prefix/etc/sysconfig/autologin");
-    $o->{autologin} ||= $l{USER};
+    $o->{autologin} ||= text2bool($l{AUTOLOGIN}) && $l{USER};
     %l = getVarsFromSh("$prefix/etc/sysconfig/desktop");
     $o->{desktop} ||= $l{DESKTOP};
 }
-- 
cgit v1.2.1