summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-05 03:07:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-05 03:07:20 +0000
commit8ffe7cf47a95d4c27074bae33574ee8b8a1e6e94 (patch)
tree6be2b45ee104f3be0e7ee5b6b5e1d0165814ff51 /perl-install/bootloader.pm
parent84fa95efd0a2ea10e89837aa7ef6ca575f08f727 (diff)
downloaddrakx-8ffe7cf47a95d4c27074bae33574ee8b8a1e6e94.tar
drakx-8ffe7cf47a95d4c27074bae33574ee8b8a1e6e94.tar.gz
drakx-8ffe7cf47a95d4c27074bae33574ee8b8a1e6e94.tar.bz2
drakx-8ffe7cf47a95d4c27074bae33574ee8b8a1e6e94.tar.xz
drakx-8ffe7cf47a95d4c27074bae33574ee8b8a1e6e94.zip
create bootloader::allowed_boot_parts() and use it,
it allows installing on md0 if using lilo and md0 is raid1
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm12
1 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e31249d9a..12b918474 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -310,6 +310,18 @@ sub suggest_onmbr {
($onmbr, $unsafe);
}
+sub allowed_boot_parts {
+ my ($bootloader, $all_hds) = @_;
+ (
+ @{$all_hds->{hds}},
+ if_($bootloader->{method} =~ /lilo/,
+ grep { $_ && $_->{level} eq '1' } @{$all_hds->{raids}}
+ ),
+ (grep { !isFat_or_NTFS($_) } fs::get::hds_fstab(@{$all_hds->{hds}})),
+ detect_devices::floppies(),
+ );
+}
+
sub same_entries {
my ($a, $b) = @_;