diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-09-16 13:12:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-09-16 13:12:13 +0000 |
| commit | 7874dbbd46abc0d0fa3feca91fb3fb024cfbba66 (patch) | |
| tree | ff7c0251a12ccbb618aace51f21a601f39626fac /perl-install | |
| parent | dc89d8f5ba4828184787a02a8e1a1538943c9e24 (diff) | |
| download | drakx-7874dbbd46abc0d0fa3feca91fb3fb024cfbba66.tar drakx-7874dbbd46abc0d0fa3feca91fb3fb024cfbba66.tar.gz drakx-7874dbbd46abc0d0fa3feca91fb3fb024cfbba66.tar.bz2 drakx-7874dbbd46abc0d0fa3feca91fb3fb024cfbba66.tar.xz drakx-7874dbbd46abc0d0fa3feca91fb3fb024cfbba66.zip | |
add some comment
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 0afad1983..1939401c3 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -226,6 +226,9 @@ sub read_grub { $bootloader; } +# nb: +# - $boot_part comes from /boot/grub/install.sh "root (hd...)" line +# - $grub2dev is /boot/grub/device.map sub _may_fix_grub2dev { my ($fstab, $grub2dev, $boot_part) = @_; my $real_boot_part = fs::get::root_($fstab, 'boot') or @@ -239,7 +242,7 @@ sub _may_fix_grub2dev { log::l("WARNING: we have detected that device.map is inconsistent with the system"); - my ($hd_grub, undef, undef) = parse_grub_file($boot_part); + my ($hd_grub, undef, undef) = parse_grub_file($boot_part); # extract hdX if (my $prev_hd_grub = find { $grub2dev->{$_} eq $real_boot_dev } keys %$grub2dev) { $grub2dev->{$prev_hd_grub} = $grub2dev->{$hd_grub}; log::l("swapping result: $hd_grub/$real_boot_dev and $prev_hd_grub/$grub2dev->{$hd_grub}"); |