summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-17 17:09:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-17 17:09:25 +0000
commitfb99b425049ff55d76b863c9357d58d5925a3c3d (patch)
tree9d459608af63b873636c95e108db3b106102c93b /perl-install/bootlook.pm
parentb68d5db11e89565538dc3323740ef0e665c85607 (diff)
downloaddrakx-fb99b425049ff55d76b863c9357d58d5925a3c3d.tar
drakx-fb99b425049ff55d76b863c9357d58d5925a3c3d.tar.gz
drakx-fb99b425049ff55d76b863c9357d58d5925a3c3d.tar.bz2
drakx-fb99b425049ff55d76b863c9357d58d5925a3c3d.tar.xz
drakx-fb99b425049ff55d76b863c9357d58d5925a3c3d.zip
a hell lot of cleanup/rewrite:
* diskdrake_interactive created, diskdrake is now interactive aware * added some documentation about the structure used for partitioning * all_hds now contain the various hds, lvm, raid * cleanup the isLVM, isRAID and alike functions * field {type} in detect_devices is now {media_type} * detect_devices::floppies is now floppies_dev * removed old function prototypes
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index ce756e6b7..a9cac7b0f 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -331,15 +331,15 @@ sub lilo_choice
local ($_) = `detectloader`;
$bootloader->{methods} = { lilo => 1, grub => !!/grub/i };
- my ($hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { 1 };
- my $fstab = [ fsedit::get_fstab(@$hds) ];
- fs::get_mntpoints_from_fstab($fstab);
+ my ($all_hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { 1 };
+ my $fstab = [ fsedit::get_all_fstab($all_hds) ];
+ fs::get_all_mntpoints_from_fstab($all_hds);
$::expert=1;
ask:
local $::isEmbedded = 0;
- any::setupBootloader($in, $bootloader, $hds, $fstab, $ENV{SECURE_LEVEL}) or return;
- eval { bootloader::install('', $bootloader, $fstab, $hds) };
+ any::setupBootloader($in, $bootloader, $all_hds->{hds}, $fstab, $ENV{SECURE_LEVEL}) or return;
+ eval { bootloader::install('', $bootloader, $fstab, $all_hds->{hds}) };
if ($@) {
$in->ask_warn('',
[ _("Installation of LILO failed. The following error occured:"),