summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-16 13:18:31 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-16 13:18:31 +0000
commit4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce (patch)
tree28974a4161d8a464d59781d76ebe52f98a8bc210 /perl-install/partition_table.pm
parent70800fea4199313a755c9dda383941f30c3a572a (diff)
downloaddrakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar
drakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.gz
drakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.bz2
drakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.tar.xz
drakx-backup-do-not-use-4679ec8bf83ef95a1b1e3f3c61dd21ceaab315ce.zip
*** empty log message ***
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 1dc606b8e..b3719cf81 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -442,12 +442,14 @@ sub write($) {
$hd->write(0, $hd->{primary}{raw}, $hd->{primary}{info}) or die "writing of partition table failed";
#- should be fixed but a extended exist with no real extended partition, that blanks mbr!
- foreach (@{$hd->{extended}}) {
- # in case of extended partitions, the start sector must be local to the partition
- $_->{normal}{local_start} = $_->{normal}{start} - $_->{start};
- $_->{extended} and $_->{extended}{local_start} = $_->{extended}{start} - $hd->{primary}{extended}{start};
+ if (arch() !~ /^sparc/) {
+ foreach (@{$hd->{extended}}) {
+ # in case of extended partitions, the start sector must be local to the partition
+ $_->{normal}{local_start} = $_->{normal}{start} - $_->{start};
+ $_->{extended} and $_->{extended}{local_start} = $_->{extended}{start} - $hd->{primary}{extended}{start};
- $hd->write($_->{start}, $_->{raw}) or die "writing of partition table failed";
+ $hd->write($_->{start}, $_->{raw}) or die "writing of partition table failed";
+ }
}
$hd->{isDirty} = 0;