diff options
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 7 |
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")); |