From fa5a2c8b55e93498a08b1f81d67a196beef9c378 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 16 Aug 2004 02:43:52 +0000
Subject: help debugging detectloader

---
 perl-install/bootloader.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/bootloader.pm')

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';
 
-- 
cgit v1.2.1