diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-28 14:36:54 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-28 14:36:54 +0000 |
commit | 8584153227c6e4caf9d0185eaa790d62a4754455 (patch) | |
tree | 2c6ac143a3878f9b06a7ffd0398ece3ee547063c /perl-install/partition_table.pm | |
parent | ffd0b578f607c50f0c995c352282bf8906017b19 (diff) | |
download | drakx-8584153227c6e4caf9d0185eaa790d62a4754455.tar drakx-8584153227c6e4caf9d0185eaa790d62a4754455.tar.gz drakx-8584153227c6e4caf9d0185eaa790d62a4754455.tar.bz2 drakx-8584153227c6e4caf9d0185eaa790d62a4754455.tar.xz drakx-8584153227c6e4caf9d0185eaa790d62a4754455.zip |
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r-- | perl-install/partition_table.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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 $@; } |