summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2010-02-04 15:07:38 +0000
committerThierry Vignaud <tv@mandriva.org>2010-02-04 15:07:38 +0000
commite43242e04ad4bc0bf47b60da01799faaa844902f (patch)
tree7030257ec0997c292b7335d6ec82835905435cd2 /perl-install/bootloader.pm
parentbefd6e9dc1cfe837f8b9f1956ed6a9bd0a92aaf5 (diff)
downloaddrakx-backup-do-not-use-e43242e04ad4bc0bf47b60da01799faaa844902f.tar
drakx-backup-do-not-use-e43242e04ad4bc0bf47b60da01799faaa844902f.tar.gz
drakx-backup-do-not-use-e43242e04ad4bc0bf47b60da01799faaa844902f.tar.bz2
drakx-backup-do-not-use-e43242e04ad4bc0bf47b60da01799faaa844902f.tar.xz
drakx-backup-do-not-use-e43242e04ad4bc0bf47b60da01799faaa844902f.zip
(write_grub) ensure /boot/grub/menu.lst permissions are 0600 since it
can contains a password
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 5b2ac248c..08b099890 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1810,7 +1810,7 @@ sub write_grub {
my $f = "$::prefix/boot/grub/menu.lst";
log::l("writing grub config to $f");
renamef($f, $f . ($o_backup_extension || '.old'));
- output($f, map { "$_\n" } @conf);
+ output_with_perm($f, 0600, map { "$_\n" } @conf);
}
{
my $f = "$::prefix/boot/grub/install.sh";