From ef1d041a459e16065c224fbaa0e3664a683b7975 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 15 Feb 2005 14:06:52 +0000 Subject: don't let table=c: break (special for Frank Griffin) --- perl-install/bootloader.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/bootloader.pm') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 6b34749e5..1ba958ba6 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1047,8 +1047,10 @@ sub write_lilo { push @entry_conf, "unsafe" if $entry->{unsafe} && !$entry->{table}; if ($entry->{table}) { + #- hum, things like table=c: are needed for some os2 cases, + #- in that $hd below is undef my $hd = fs::get::device2part($entry->{table}, $all_hds->{hds}); - if ($hd != $sorted_hds[0]) { + if ($hd && $hd != $sorted_hds[0]) { #- boot off the nth drive, so reverse the BIOS maps my $nb = sprintf("0x%x", 0x80 + (find_index { $hd == $_ } @sorted_hds)); $entry->{mapdrive} ||= { '0x80' => $nb, $nb => '0x80' }; -- cgit v1.2.1