From 37860db32a298e81d107848c7021f39427ff2e29 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Sep 1999 00:38:28 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index d02e735aa..bf68f7971 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -108,16 +108,15 @@ sub doPartitionDisks($$) {
 sub rebootNeeded($) {
     my ($o) = @_;
     log::l("Rebooting...");
-    exit "true";
+    exec "true";
 }
 
 sub choosePartitionsToFormat($$) {
     my ($o, $fstab) = @_;
 
-    foreach (@$fstab) {
-	$_->{toFormat} = ($_->{mntpoint} && isExt2($_) || isSwap($_)) &&
-	  ($_->{notFormatted} || $o->{partitioning}{autoformat});
-    }
+    $_->{mntpoint} = "swap" foreach grep { isSwap($_) } @$fstab;
+    $_->{toFormat} = $_->{mntpoint} &&
+      ($_->{notFormatted} || $o->{partitioning}{autoformat}) foreach @$fstab;
 }
 
 sub formatPartitions {
@@ -281,10 +280,16 @@ sub createBootdisk($) {
 }
 
 #------------------------------------------------------------------------------
+sub setupBootloaderBefore {
+    my ($o) = @_;
+    add2hash($o->{bootloader} ||= {}, lilo::read("$o->{prefix}/etc/lilo.conf"));
+    lilo::suggest($o->{prefix}, $o->{bootloader}, $o->{hds}, $o->{fstab}, install_any::kernelVersion());
+    $o->{bootloader}{keytable} ||= keyboard::kmap($o->{keyboard});
+}
+
 sub setupBootloader($) {
     my ($o) = @_;
     return if $::g_auto_install;
-    $o->{bootloader}{keytable} = keyboard::kmap($o->{keyboard}) if $o->{bootloader}{keytable} eq "1";
     lilo::install($o->{prefix}, $o->{bootloader});
 }
 
-- 
cgit v1.2.1