summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-16 02:43:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-16 02:43:52 +0000
commitfa5a2c8b55e93498a08b1f81d67a196beef9c378 (patch)
tree53fffce8fadf2dd772f9d52d0855634503f17c17 /perl-install/bootloader.pm
parent6df49b632439a900db6f10782595bc8bf64cf1fb (diff)
downloaddrakx-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/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm1
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';