From d2d2f8b7361ec4d909ce3e466ec1705f37d7eb76 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 14 Sep 2001 15:06:10 +0000
Subject: iautologin correction

---
 perl-install/bootlook.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 2781c29a2..cbad70b79 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -279,7 +279,8 @@ sub isAutologin {
     $line =~ s/AUTOLOGIN=(yes|no)/$1/;
     chomp ($line);
     $line =  ($line eq "yes");
-    return ($line);
+    my %au = get_autologin('');
+    return ($line && $au{autologin} && $au{desktop});
 }
 
 sub get_autologin {
-- 
cgit v1.2.1