summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
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 1ba958ba6..123647041 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1253,7 +1253,7 @@ sub write_grub {
my $dev = device_string2grub($bootloader->{boot}, \@legacy_floppies, \@sorted_hds);
my ($stage1, $stage2, $menu_lst) = map { $file2grub->("/boot/grub/$_") } qw(stage1 stage2 menu.lst);
rename $f, "$f.old";
- output "$::prefix/boot/grub/install.sh",
+ output_with_perm("$::prefix/boot/grub/install.sh", 0755,
"grub --device-map=/boot/grub/device.map --batch <<EOF
install $stage1 d $dev $stage2 p $menu_lst
quit