summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/partition_table/raw.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index c3138a54a..3a3ffd43d 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -229,10 +229,15 @@ sub zero_MBR {
}
}
-sub zero_MBR_and_dirty {
- my ($hd) = @_;
+sub clear_existing {
+ my ($hd) = @_;
my @parts = (partition_table::get_normal_parts($hd), if_($hd->{primary}{extended}, $hd->{primary}{extended}));
partition_table::will_tell_kernel($hd, del => $_) foreach @parts;
+}
+
+sub zero_MBR_and_dirty {
+ my ($hd) = @_;
+ $hd->clear_existing;
zero_MBR($hd);
}