summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-25 21:49:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-25 21:49:26 +0000
commit18fb55671bbe54db5316e309b88fbbe9b9cf2a95 (patch)
treecae392d06d5a0985c642ee45484caef11ac86bd3 /perl-install/install_any.pm
parent0f3c576319ecf8ee27b7adfbf805ca1f93fd8fca (diff)
downloaddrakx-backup-do-not-use-18fb55671bbe54db5316e309b88fbbe9b9cf2a95.tar
drakx-backup-do-not-use-18fb55671bbe54db5316e309b88fbbe9b9cf2a95.tar.gz
drakx-backup-do-not-use-18fb55671bbe54db5316e309b88fbbe9b9cf2a95.tar.bz2
drakx-backup-do-not-use-18fb55671bbe54db5316e309b88fbbe9b9cf2a95.tar.xz
drakx-backup-do-not-use-18fb55671bbe54db5316e309b88fbbe9b9cf2a95.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm14
1 files changed, 10 insertions, 4 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 08db3ef9a..f268fb81d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -258,6 +258,13 @@ I'll try to go on blanking bad partitions"), $err]) unless $o->{partitioning}{re
_("DiskDrake failed to read correctly the partition table.
Continue at your own risk!")) if !$ok2 && $ok && !$o->{partitioning}{readonly};
+ my @win = grep { isFat($_) && isFat({ type => fsedit::typeOfPart($_->{device}) }) } @{$o->{fstab}};
+ my @nt = grep { isNT($_) && isNT( { type => fsedit::typeOfPart($_->{device}) }) } @{$o->{fstab}};
+ log::l("win parts: ", join ",", map { $_->{device} } @win) if @win;
+ log::l("nt parts: ", join ",", map { $_->{device} } @nt) if @nt;
+ $_->{mntpoint} = @win == 1 ? "/mnt/windows" : "/mnt/win_$_->{device_windobe}" foreach @win;
+ $_->{mntpoint} = @nt == 1 ? "/mnt/nt" : "/mnt/nt_$_->{device_windobe}" foreach @nt;
+
$ok2;
}
@@ -440,22 +447,21 @@ sub setupFB {
#- a frame buffer kernel is used, in such case we use it instead
#- with the right mode, nothing more to do.
foreach (qw(secure smp)) {
- if ($o->{bootloader}{entries}{"/boot/vmlinuz-$_"}) {
+ if (my $e = lilo::get("/boot/vmlinuz-$_", $o->{bootloader})) {
if ($_ eq 'secure') {
log::l("warning: kernel-secure is not fb, using a kernel-fb instead");
#- nothing done, fall through linux-fb.
} else {
- $o->{bootloader}{entries}{"/boot/vmlinuz-$_"}{vga} = $vga;
+ $e->{vga} = $vga;
lilo::install($o->{prefix}, $o->{bootloader});
return 1;
}
}
}
- my $root = $o->{bootloader}{entries}{'/boot/vmlinuz'}{root};
if (lilo::add_kernel($o->{prefix}, $o->{bootloader}, kernelVersion(), 'fb',
{
label => 'linux-fb',
- root => $root,
+ root => lilo::get("/boot/vmlinuz", $o->{bootloader})->{root},
vga => $vga,
})) {
$o->{bootloader}{default} = 'linux-fb';