summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-28 12:46:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-28 12:46:03 +0000
commitee68302f675422a5f5290bb8f57ec375965f5280 (patch)
tree86d008d36bc194125b26b18dfc423873eb1c7b79 /perl-install/bootloader.pm
parent16c21b49295577ef8678cef5e997314fc5138e1a (diff)
downloaddrakx-ee68302f675422a5f5290bb8f57ec375965f5280.tar
drakx-ee68302f675422a5f5290bb8f57ec375965f5280.tar.gz
drakx-ee68302f675422a5f5290bb8f57ec375965f5280.tar.bz2
drakx-ee68302f675422a5f5290bb8f57ec375965f5280.tar.xz
drakx-ee68302f675422a5f5290bb8f57ec375965f5280.zip
have install.sh 755 (as suggested by Vincent Meyer)
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