From ee68302f675422a5f5290bb8f57ec375965f5280 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 28 Feb 2005 12:46:03 +0000
Subject: have install.sh 755 (as suggested by Vincent Meyer)

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.1