From b30b2cfa0275bf45a89c009469e847c381be68d7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 13 Mar 2003 08:56:17 +0000 Subject: fix #3161 (ensure right permissions on /etc/sysconfig/autologin for bad root umask case) --- perl-install/any.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install') diff --git a/perl-install/any.pm b/perl-install/any.pm index 3b3be9378..a45162a4b 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -470,6 +470,8 @@ sub set_autologin { } 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"); log::l("cat $::prefix/etc/sysconfig/autologin ($user):\n", cat_("$::prefix/etc/sysconfig/autologin")); } -- cgit v1.2.1