1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 4e31ae49a..f29f47959 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -340,6 +340,16 @@ sub move {
     }
 }
 
+sub change_type($$$) {
+    my ($hd, $part, $type) = @_;
+    $type != $part->{type} or return;
+    $hd->{isDirty} = 1;
+    $part->{mntpoint} = '' if isSwap($part) && $part->{mntpoint} eq "swap";
+    $part->{type} = $type;
+    $part->{notFormatted} = 1;
+    $part->{isFormatted} = 0;    
+}
+
 sub rescuept($) {
     my ($hd) = @_;
     my ($ext, @hd);