From dd962c22f7e02d9bbcc7f62c515d4c2ab7b1fdf3 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Wed, 7 Oct 2009 09:48:03 +0000 Subject: - factorize default FS definition - switch to ext4 by default --- perl-install/fs/type.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/fs/type.pm') diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index 244c7126d..80176f15a 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -10,7 +10,7 @@ use devices; our @ISA = qw(Exporter); our @EXPORT = qw( isEmpty isExtended isTrueLocalFS isTrueFS isDos isSwap isOtherAvailableFS isRawLVM isRawRAID isRAID isLVM isMountableRW isNonMountable isPartOfLVM isPartOfRAID isPartOfLoopback isLoopback isMounted isBusy isSpecial isApple isAppleBootstrap isWholedisk isFat_or_NTFS isRecovery - maybeFormatted set_isFormatted + maybeFormatted set_isFormatted defaultFS ); @@ -309,6 +309,8 @@ sub type_subpart_from_magic { $p; } +sub defaultFS { 'ext4' } + sub true_local_fs_types() { qw(ext3 ext2 ext4 reiserfs reiser4 xfs jfs) } sub isEmpty { !$_[0]{fs_type} && $_[0]{pt_type} == 0 } -- cgit v1.2.1