summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table/raw.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/partition_table/raw.pm')
-rw-r--r--perl-install/partition_table/raw.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index f84876f04..d1549239d 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -218,8 +218,8 @@ sub default_type {
sub zero_MBR {
my ($hd) = @_;
#- force the standard partition type for the architecture
- bless $hd, default_type();
- $hd->{primary} = $hd->clear_raw;
+ my $type = default_type();
+ $type->initialize($hd);
delete $hd->{extended};
if (detect_devices::is_xbox()) {
my $part = { start => 1, size => 15632048, pt_type => 0x0bf, isFormatted => 1 };