2 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 81967d07e..5c46e25ca 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -213,6 +213,7 @@ sub raw_removed {
     my ($_hd, $raw) = @_;
     @$raw = grep { $_->{size} && $_->{pt_type} } @$raw;
 }
+sub can_add { &can_raw_add }
 sub can_raw_add {
     my ($hd) = @_;
     @{$hd->{primary}{raw}} < $hd->{primary}{info}{nbPartitions};
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index 6edc26507..44b4b6e01 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -192,6 +192,12 @@ sub openit {
     my $F; sysopen($F, $hd->{file}, $o_mode || 0) && $F;
 }
 
+sub can_add {
+    my ($hd) = @_;
+    !$_->{size} && !$_->{pt_type} || isExtended($_) and return 1 foreach @{$hd->{primary}{raw}};
+    0;
+}
+
 sub raw_removed {
     my ($_hd, $_raw) = @_;
 }