From 8584153227c6e4caf9d0185eaa790d62a4754455 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 28 Aug 1999 14:36:54 +0000
Subject: no_comment

---
 perl-install/partition_table.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 5d7cbd890..2f86e969a 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -401,7 +401,7 @@ The only solution is to move your primary partitions to have the hole next to th
 }
 
 sub add($$;$) {
-    my ($hd, $part, $want_primary) = @_;
+    my ($hd, $part, $primaryOrExtended) = @_;
 
     $part->{notFormatted} = 1;
     $part->{isFormatted} = 0;
@@ -412,7 +412,8 @@ sub add($$;$) {
 
     my $e = $hd->{primary}{extended};
 
-    if (is_empty_array_ref($hd->{primary}{normal}) || $want_primary) {
+    if ($primaryOrExtended eq 'Primary' || 
+	$primaryOrExtended ne 'Extended' && is_empty_array_ref($hd->{primary}{normal})) {
 	eval { add_primary($hd, $part) };
 	return unless $@;
     }
-- 
cgit v1.2.1