summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm7
1 files changed, 5 insertions, 2 deletions
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"));