From 328d93c8b3ed7a78f069e8a7ba7b8cdf92554d7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Aug 2005 01:19:14 +0000
Subject: have the ability to prefer primary partitions in auto_installs

---
 perl-install/fsedit.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 241354563..cbe94f5c1 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -360,7 +360,7 @@ sub suggest_part {
     $part->{mntpoint} = $best->{mntpoint};
     fs::type::set_type_subpart($part, $best) if !isTrueFS($best) || !isTrueFS($part);
     $part->{size} = computeSize($part, $best, $all_hds, \@local_suggestions);
-    foreach ('options', 'lv_name', 'encrypt_key', 'device_LABEL', 'prefer_device_LABEL') {
+    foreach ('options', 'lv_name', 'encrypt_key', 'device_LABEL', 'prefer_device_LABEL', 'primaryOrExtended') {
 	$part->{$_} = $best->{$_} if $best->{$_};
     }
     1;
@@ -433,7 +433,7 @@ sub allocatePartitions {
 	while (suggest_part($part = { start => $start, size => 0, maxsize => $size, rootDevice => $dev }, 
 			    $all_hds, $to_add)) {
 	    my $hd = fs::get::part2hd($part, $all_hds);
-	    add($hd, $part, $all_hds, {});
+	    add($hd, $part, $all_hds, { primaryOrExtended => $part->{primaryOrExtended} });
 	    $size -= $part->{size} + $part->{start} - $start;
 	    $start = $part->{start} + $part->{size};
 	}
-- 
cgit v1.2.1