diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-16 02:43:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-16 02:43:52 +0000 |
| commit | fa5a2c8b55e93498a08b1f81d67a196beef9c378 (patch) | |
| tree | 53fffce8fadf2dd772f9d52d0855634503f17c17 /perl-install | |
| parent | 6df49b632439a900db6f10782595bc8bf64cf1fb (diff) | |
| download | drakx-fa5a2c8b55e93498a08b1f81d67a196beef9c378.tar drakx-fa5a2c8b55e93498a08b1f81d67a196beef9c378.tar.gz drakx-fa5a2c8b55e93498a08b1f81d67a196beef9c378.tar.bz2 drakx-fa5a2c8b55e93498a08b1f81d67a196beef9c378.tar.xz drakx-fa5a2c8b55e93498a08b1f81d67a196beef9c378.zip | |
help debugging detectloader
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index c2a7f29ce..86ce3d291 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -151,6 +151,7 @@ sub read { my $f = $bootloader::{"read_$main_method"} or die "unknown bootloader method $main_method (read)"; my $bootloader = $f->($fstab); my $type = partition_table::raw::typeOfMBR($bootloader->{boot}); + warn "typeOfMBR $type on $bootloader->{boot} for method $main_method\n" if $ENV{DEBUG}; if ($type eq $main_method) { my @prefered_entries = map { get_label($_, $bootloader) } $bootloader->{default}, 'linux'; |