diff options
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/type.pm | 7 |
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"); +} |