summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-24 00:26:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-24 00:26:22 +0000
commit63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5 (patch)
treedb9522b8dc1c02af74c6c5050a58e7fd002bdc55 /perl-install/partition_table.pm
parent685a29887953bf36c2d0dab4e7bce8a64bd8934e (diff)
downloaddrakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.gz
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.bz2
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.xz
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.zip
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index aa6912ab9..e8def5b18 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -436,8 +436,14 @@ sub remove($$) {
}
$i++;
}
+
+ my ($first, $second, $third) = map { $_->{normal} } @{$hd->{extended} || []};
+ if ($third && $first eq $part) {
+ die "Can't handle removing hda5 when hda6 is not the second partition" if $second->{start} > $third->{start};
+ }
+
#- otherwise search it in extended partitions
- foreach (@{$hd->{extended}}) {
+ foreach (@{$hd->{extended} || []}) {
$_->{normal} eq $part or next;
delete $_->{normal}; #- remove it