summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table_raw.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-16 23:08:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-16 23:08:46 +0000
commit3b9b604eb1802c5f546bd444dae32e179bbb7d20 (patch)
treeb7b1cdf32f2e12fa65a932f24722e12a89b59bb3 /perl-install/partition_table_raw.pm
parentcc29fc49a0427da3225c4d77f95827bed24073f7 (diff)
downloaddrakx-3b9b604eb1802c5f546bd444dae32e179bbb7d20.tar
drakx-3b9b604eb1802c5f546bd444dae32e179bbb7d20.tar.gz
drakx-3b9b604eb1802c5f546bd444dae32e179bbb7d20.tar.bz2
drakx-3b9b604eb1802c5f546bd444dae32e179bbb7d20.tar.xz
drakx-3b9b604eb1802c5f546bd444dae32e179bbb7d20.zip
no_comment
Diffstat (limited to 'perl-install/partition_table_raw.pm')
-rw-r--r--perl-install/partition_table_raw.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index 9aa790aee..35287e965 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -54,6 +54,10 @@ sub kernel_read($) {
sub zero_MBR($) {
my ($hd) = @_;
+# unless (ref($hd) =~ /partition_table/) {
+ my $type = arch() eq "alpha" ? "bsd" : "dos";
+ bless $hd, "partition_table_$type";
+# }
$hd->{isDirty} = $hd->{needKernelReread} = 1;
$hd->{primary} = $hd->clear_raw();
delete $hd->{extended};