summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-02 08:10:53 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-02 08:10:53 +0000
commit4754dfeb3a7869aac8cc21e5049fddb010cc0ecc (patch)
treee9c891b1e13374833e97c02c794d28a2c5db341b /perl-install/fs
parentcdf5a794b4869f7e9b598eb32eb3662f4842263f (diff)
downloaddrakx-4754dfeb3a7869aac8cc21e5049fddb010cc0ecc.tar
drakx-4754dfeb3a7869aac8cc21e5049fddb010cc0ecc.tar.gz
drakx-4754dfeb3a7869aac8cc21e5049fddb010cc0ecc.tar.bz2
drakx-4754dfeb3a7869aac8cc21e5049fddb010cc0ecc.tar.xz
drakx-4754dfeb3a7869aac8cc21e5049fddb010cc0ecc.zip
fsedit::check_fs_type() is now fs::type::check()
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/type.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index 80116b51c..70e388177 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -332,3 +332,10 @@ sub set_isFormatted {
delete $part->{bad_fs_type_magic};
delete $part->{fs_type_from_magic};
}
+
+#- do this before modifying $part->{fs_type}
+sub check {
+ my ($fs_type, $_hd, $part) = @_;
+ $fs_type eq "jfs" && $part->{size} < 16 << 11 and die N("You can't use JFS for partitions smaller than 16MB");
+ $fs_type eq "reiserfs" && $part->{size} < 32 << 11 and die N("You can't use ReiserFS for partitions smaller than 32MB");
+}