From 3f111a42fbf42fb2b2c4f5a81b97d4589040b5be Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 13 Oct 2009 18:00:28 +0000
Subject: use autologin_file variable

---
 perl-install/any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 14b0d4009..4b3efb20e 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -639,7 +639,7 @@ sub get_autologin() {
     my %desktop = getVarsFromSh("$::prefix/etc/sysconfig/desktop");
     my $gdm_file = "$::prefix/etc/X11/gdm/custom.conf";
     my $kdm_file = common::read_alternative('kdm4-config');
-    my $autologin_file = "/etc/sysconfig/autologin";
+    my $autologin_file = "$::prefix/etc/sysconfig/autologin";
     my $desktop = $desktop{DESKTOP} || first(sessions());
     my %desktop_to_dm = (
         GNOME => 'gdm',
@@ -665,7 +665,7 @@ sub get_autologin() {
         my %conf = read_gnomekderc($kdm_file, 'X-:0-Core');
         $autologin_user = text2bool($conf{AutoLoginEnable}) && $conf{AutoLoginUser};
     } else {
-        my %conf = getVarsFromSh("$::prefix/etc/sysconfig/autologin");
+        my %conf = getVarsFromSh($autologin_file);
         $autologin_user = text2bool($conf{AUTOLOGIN}) && $conf{USER};
     }
 
-- 
cgit v1.2.1