summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index ff5efabed..348c3972e 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -250,6 +250,8 @@ sub read_grub_menu_lst {
$e->{mapdrive}{$2} = $1 if $v =~ m/\((.*)\) \((.*)\)/;
} elsif ($keyword eq 'module') {
push @{$e->{modules}}, $v;
+ } else {
+ $e->{$keyword} = $v eq '' ? 1 : $v;
}
}
}
@@ -863,7 +865,8 @@ sub suggest {
type => 'other',
kernel_or_dev => "/dev/$_->{device}",
label => 'windows' . ($::i || ''),
- table => "/dev/$_->{rootDevice}"
+ table => "/dev/$_->{rootDevice}",
+ makeactive => 1,
});
} @windows_boot_parts;
}
@@ -1407,8 +1410,8 @@ sub write_grub {
}
if ($_->{mapdrive}) {
push @conf, map_each { "map ($::b) ($::a)" } %{$_->{mapdrive}};
- push @conf, "makeactive";
}
+ push @conf, "makeactive" if $_->{makeactive};
push @conf, "chainloader +1";
}
}