From b9c91c78b54aba73e63c9919437e638957f6d44b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 13 Mar 2003 10:42:51 +0000 Subject: cleanup (still need to handle permissions more cleanly, people using umask 0 should be shot) --- perl-install/any.pm | 6 ++---- 1 file 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")); } -- cgit v1.2.1