From 602031f419d1dc6db0e0fae7d8519176483f0fde Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 3 May 2001 09:57:45 +0000
Subject: corrected set_autologin

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

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index e48cb64eb..8de921fea 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -342,8 +342,11 @@ sub get_autologin {
 sub set_autologin {
   my ($prefix, $user, $desktop) = @_;
 
-  output "$prefix/etc/sysconfig/desktop", uc($desktop), "\n" if $user;
-
+  if ($user) {
+      my %l = getVarsFromSh("$prefix/etc/sysconfig/desktop");
+      $l{DESKTOP} = uc($desktop);
+      setVarsInSh("$prefix/etc/sysconfig/desktop", %l);
+  }
   setVarsInSh("$prefix/etc/sysconfig/autologin",
 	      { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx" });
   log::l("cat $prefix/etc/sysconfig/autologin: ", cat_("$prefix/etc/sysconfig/autologin"));
-- 
cgit v1.2.1