create clear_existing()

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);
 }