From 1b5fd5c2c0b92cc516b16ddaf3d892c475b74db3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 6 Mar 2001 15:20:39 +0000
Subject: (add): create 3 primaries before creating an extended if DAC960
 (/dev/rd/*)

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

(limited to 'perl-install')

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 5a849d5bf..aad737c70 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -618,10 +618,11 @@ sub add($$;$$) {
     adjustStartAndEnd($hd, $part) unless $forceNoAdjust;
 
     my $e = $hd->{primary}{extended};
+    my $nb_primaries = $hd->{device} =~ /^rd/ ? 3 : 1;
 
     if (arch() =~ /^sparc|ppc/ ||
 	$primaryOrExtended eq 'Primary' ||
-	$primaryOrExtended !~ /Extended/ && is_empty_array_ref($hd->{primary}{normal})) {
+	$primaryOrExtended !~ /Extended/ && @{$hd->{primary}{normal} || []} < $nb_primaries) {
 	eval { add_primary($hd, $part) };
 	return unless $@;
     }
-- 
cgit v1.2.1