summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-15 19:44:29 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-15 19:44:29 +0000
commit405fee60d1e1137611dae9783ae370563c901967 (patch)
treee6178c064c6908a7aef5df4ade4454aed99def22 /perl-install/fsedit.pm
parent6e1499a56590006f2a11ab711804fee205311c36 (diff)
downloaddrakx-405fee60d1e1137611dae9783ae370563c901967.tar
drakx-405fee60d1e1137611dae9783ae370563c901967.tar.gz
drakx-405fee60d1e1137611dae9783ae370563c901967.tar.bz2
drakx-405fee60d1e1137611dae9783ae370563c901967.tar.xz
drakx-405fee60d1e1137611dae9783ae370563c901967.zip
no_comment
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm10
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);