From 39b51c96e54f880be2d2fb909f44118a6c209d7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 13 Jul 1999 16:23:45 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index fbfc6c12d..ad993b590 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -5,6 +5,7 @@ use strict;
 
 use common qw(:file :system);
 use install_any qw(:all);
+use partition_table qw(:types);
 use run_program;
 use lilo;
 use lang;
@@ -14,7 +15,6 @@ use cpio;
 use log;
 use fsedit;
 use commands;
-use smp;
 
 
 my $o;
@@ -46,6 +46,14 @@ sub doPartitionDisks($$) {
     my ($o, $hds) = @_;
     fsedit::auto_allocate($hds, $o->{default}->{partitions});
 }
+sub choosePartitionsToFormat($$) {
+    my ($o, $fstab) = @_;
+
+    foreach (@$fstab) { 
+	$_->{toFormat} = $_->{mntpoint} && (isExt2($_) || isSwap($_)) &&
+	  ($_->{notFormatted} || $o->{default}->{partitionning}->{autoformat});
+    }
+}
 
 sub choosePackages($$$) {
     my ($o, $packages, $comps) = @_;
@@ -55,8 +63,6 @@ sub choosePackages($$$) {
 	foreach (@{$comps->{$_}->{packages}}) { $_->{selected} = 1; }
     }
     foreach (@{$o->{default}->{packages}}) { $packages->{$_}->{selected} = 1; }
-
-    smp::detect() and $packages->{"kernel-smp"}->{selected} = 1;
 }
 
 sub beforeInstallPackages($) {
-- 
cgit v1.2.1