summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-15 14:06:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-15 14:06:52 +0000
commitef1d041a459e16065c224fbaa0e3664a683b7975 (patch)
treed86220e1826e8eb1227097a8b2da765fb51ff146 /perl-install
parente65e7d994ad54b98dba4d4adb353ef9b47463968 (diff)
downloaddrakx-ef1d041a459e16065c224fbaa0e3664a683b7975.tar
drakx-ef1d041a459e16065c224fbaa0e3664a683b7975.tar.gz
drakx-ef1d041a459e16065c224fbaa0e3664a683b7975.tar.bz2
drakx-ef1d041a459e16065c224fbaa0e3664a683b7975.tar.xz
drakx-ef1d041a459e16065c224fbaa0e3664a683b7975.zip
don't let table=c: break (special for Frank Griffin)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm4
1 files changed, 3 insertions, 1 deletions
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' };