From 4754dfeb3a7869aac8cc21e5049fddb010cc0ecc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Aug 2004 08:10:53 +0000
Subject: fsedit::check_fs_type() is now fs::type::check()

---
 perl-install/fs/type.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl-install/fs')

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");
+}
-- 
cgit v1.2.1