summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/bootloader.pm34
1 files changed, 17 insertions, 17 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 1fd1b39a1..719e7b887 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -972,31 +972,31 @@ sub write_lilo {
push @conf, map_each { "disk=$::a bios=$::b" } %{$bootloader->{bios}};
- foreach (@{$bootloader->{entries}}) {
- push @conf, "$_->{type}=" . $file2fullname->($_->{kernel_or_dev});
+ foreach my $entry (@{$bootloader->{entries}}) {
+ push @conf, "$entry->{type}=" . $file2fullname->($entry->{kernel_or_dev});
my @entry_conf;
- push @entry_conf, "label=" . make_label_lilo_compatible($_->{label});
-
- if ($_->{type} eq "image") {
- push @entry_conf, "root=$_->{root}" if $_->{root};
- push @entry_conf, "initrd=" . $file2fullname->($_->{initrd}) if $_->{initrd};
- push @entry_conf, qq(append="$_->{append}") if $_->{append};
- push @entry_conf, "vga=$_->{vga}" if $_->{vga};
- push @entry_conf, $_->{'read-write'} ? "read-write" : "read-only";
+ push @entry_conf, "label=" . make_label_lilo_compatible($entry->{label});
+
+ if ($entry->{type} eq "image") {
+ push @entry_conf, "root=$entry->{root}" if $entry->{root};
+ push @entry_conf, "initrd=" . $file2fullname->($entry->{initrd}) if $entry->{initrd};
+ push @entry_conf, qq(append="$entry->{append}") if $entry->{append};
+ push @entry_conf, "vga=$entry->{vga}" if $entry->{vga};
+ push @entry_conf, $entry->{'read-write'} ? "read-write" : "read-only";
} else {
- push @entry_conf, "table=$_->{table}" if $_->{table};
- push @entry_conf, "unsafe" if $_->{unsafe} && !$_->{table};
+ push @entry_conf, "table=$entry->{table}" if $entry->{table};
+ push @entry_conf, "unsafe" if $entry->{unsafe} && !$entry->{table};
- if ($_->{table}) {
- my $hd = fs::device2part($_->{table}, $hds);
+ if ($entry->{table}) {
+ my $hd = fs::device2part($entry->{table}, $hds);
if ($hd != $sorted_hds[0]) {
#- boot off the nth drive, so reverse the BIOS maps
my $nb = sprintf("0x%x", 0x80 + (find_index { $hd == $_ } @sorted_hds));
- $_->{mapdrive} ||= { '0x80' => $nb, $nb => '0x80' };
+ $entry->{mapdrive} ||= { '0x80' => $nb, $nb => '0x80' };
}
}
- if ($_->{mapdrive}) {
- push @entry_conf, map_each { "map-drive=$::a", " to=$::b" } %{$_->{mapdrive}};
+ if ($entry->{mapdrive}) {
+ push @entry_conf, map_each { "map-drive=$::a", " to=$::b" } %{$entry->{mapdrive}};
}
}
push @conf, map { "\t$_" } @entry_conf;