summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm31
1 files changed, 15 insertions, 16 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 0cdbfc1bd..cd549685a 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1084,35 +1084,31 @@ sub write_grub_config {
dev2grub($part->{device}, \%dev2bios) . $file;
};
{
- local $\ = "\n";
- my $f = "$::prefix/boot/grub/menu.lst";
- local *F;
- open F, ">$f" or die "cannot create grub config file: $f";
- log::l("writing grub config to $f");
+ my @grub_config;
- $bootloader->{$_} and print F "$_ $bootloader->{$_}" foreach qw(timeout);
+ $bootloader->{$_} and push @grub_config, "$_ $bootloader->{$_}" foreach qw(timeout);
- print F "color black/cyan yellow/cyan";
- print F "serial --unit=$1 --speed=$2\nterminal --timeout=" . ($bootloader->{timeout} || 0) . " console serial" if get_append($bootloader, 'console') =~ /ttyS(\d),(\d+)/;
+ push @grub_config, "color black/cyan yellow/cyan";
+ push @grub_config, "serial --unit=$1 --speed=$2\nterminal --timeout=" . ($bootloader->{timeout} || 0) . " console serial" if get_append($bootloader, 'console') =~ /ttyS(\d),(\d+)/;
each_index {
- print F "default $::i" if $_->{label} eq $bootloader->{default};
+ push @grub_config, "default $::i" if $_->{label} eq $bootloader->{default};
} @{$bootloader->{entries}};
foreach (@{$bootloader->{entries}}) {
- print F "\ntitle $_->{label}";
+ push @grub_config, "\ntitle $_->{label}";
if ($_->{type} eq "image") {
my $vga = $_->{vga} || $bootloader->{vga};
- printf F "kernel %s root=%s %s%s%s\n",
+ push @grub_config, sprintf "kernel %s root=%s %s%s%s",
$file2grub->($_->{kernel_or_dev}),
$_->{root} =~ /loop7/ ? "707" : $_->{root}, #- special to workaround bug in kernel (see #ifdef CONFIG_BLK_DEV_LOOP)
$_->{append},
$_->{'read-write'} && " rw",
$vga && $vga ne "normal" && " vga=$vga";
- print F "initrd ", $file2grub->($_->{initrd}) if $_->{initrd};
+ push @grub_config, join("", "initrd ", $file2grub->($_->{initrd})) if $_->{initrd};
} else {
- print F "root ", dev2grub($_->{kernel_or_dev}, \%dev2bios);
+ push @grub_config, join("", "root ", dev2grub($_->{kernel_or_dev}, \%dev2bios));
if (my ($dev) = $_->{table} =~ m|/dev/(.*)|) {
if ($dev2bios{$dev} =~ /hd([1-9])/) {
@@ -1122,12 +1118,15 @@ sub write_grub_config {
}
}
if ($_->{mapdrive}) {
- map_each { print F "map ($::b) ($::a)" } %{$_->{mapdrive}};
- print F "makeactive";
+ map_each { push @grub_config, "map ($::b) ($::a)" } %{$_->{mapdrive}};
+ push @grub_config, "makeactive";
}
- print F "chainloader +1";
+ push @grub_config, "chainloader +1";
}
}
+ my $f = "$::prefix/boot/grub/menu.lst";
+ log::l("writing grub config to $f");
+ output($f, join("\n", @grub_config));
}
my $dev = dev2grub($bootloader->{boot}, \%dev2bios);
my ($s1, $s2, $m) = map { $file2grub->("/boot/grub/$_") } qw(stage1 stage2 menu.lst);