From 328d93c8b3ed7a78f069e8a7ba7b8cdf92554d7c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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