summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2009-01-15 13:35:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2009-01-15 13:35:46 +0000
commitec3206ff34636d3039f747b0f086bde450d5c1bf (patch)
treea5af68cfdef7939c7ec003126c8fea681f793d70 /perl-install
parent76714ee740ca550d7e248dddbc6f702ae401139e (diff)
downloaddrakx-ec3206ff34636d3039f747b0f086bde450d5c1bf.tar
drakx-ec3206ff34636d3039f747b0f086bde450d5c1bf.tar.gz
drakx-ec3206ff34636d3039f747b0f086bde450d5c1bf.tar.bz2
drakx-ec3206ff34636d3039f747b0f086bde450d5c1bf.tar.xz
drakx-ec3206ff34636d3039f747b0f086bde450d5c1bf.zip
add comments
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 3a0a2b516..9ada11cbf 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -519,14 +519,16 @@ sub suggest_onmbr {
($onmbr, $unsafe);
}
+# list of places where we can install the bootloader
sub allowed_boot_parts {
my ($bootloader, $all_hds) = @_;
(
- @{$all_hds->{hds}},
+ @{$all_hds->{hds}}, # MBR
+
if_($bootloader->{method} =~ /lilo/,
grep { $_->{level} eq '1' } @{$all_hds->{raids}}
),
- (grep { !isFat_or_NTFS($_) } fs::get::fstab($all_hds)),
+ (grep { !isFat_or_NTFS($_) } fs::get::fstab($all_hds)), # filesystems except those who do not leave space for our bootloaders
detect_devices::floppies(),
);
}
@@ -641,6 +643,7 @@ sub cmp_kernel_versions {
$r || $rel_a <=> $rel_b || $rel_a cmp $rel_b;
}
+# for lilo & xen
sub get_mbootpack_filename {
my ($entry) = @_;
my $mbootpack_file = $entry->{initrd};
@@ -648,6 +651,7 @@ sub get_mbootpack_filename {
$entry->{xen} && $mbootpack_file;
}
+# for lilo & xen
sub build_mbootpack {
my ($entry) = @_;
@@ -747,6 +751,7 @@ sub rebuild_initrds {
}
}
+# unused (?)
sub duplicate_kernel_entry {
my ($bootloader, $new_label) = @_;
@@ -848,6 +853,7 @@ sub set_append_netprofile {
$e->{append} = pack_append($simple, $dict);
}
+# used when a bootloader $entry has been modified (eg: $entry->{vga})
sub configure_entry {
my ($bootloader, $entry) = @_;
$entry->{type} eq 'image' or return;
@@ -937,6 +943,7 @@ sub _sanitize_ver {
$return;
}
+# for lilo
sub suggest_message_text {
my ($bootloader) = @_;
@@ -1155,6 +1162,7 @@ sub configured_main_methods() {
difference2([ main_method_choices(1) ], \@bad_main_methods);
}
+# for lilo
sub keytable {
my ($f) = @_;
$f or return;