diff options
| -rw-r--r-- | perl-install/any.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index a45162a4b..dd7f6b932 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -468,10 +468,8 @@ sub set_autologin { setVarsInSh("$::prefix/etc/sysconfig/desktop", \%l); log::l("cat $::prefix/etc/sysconfig/desktop ($desktop):\n", cat_("$::prefix/etc/sysconfig/desktop")); } - setVarsInSh("$::prefix/etc/sysconfig/autologin", - { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx.autologin" }); - run_program::rooted($::prefix, "/bin/chmod", 644, "$::prefix/etc/sysconfig/autologin") - or log::l("warning: unable to set \"$::prefix/etc/sysconfig/autologin\" permissions"); + setVarsInShMode("$::prefix/etc/sysconfig/autologin", 0644, + { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx.autologin" }); log::l("cat $::prefix/etc/sysconfig/autologin ($user):\n", cat_("$::prefix/etc/sysconfig/autologin")); } |