diff options
| -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'; |