diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-03-18 17:27:10 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-03-20 17:13:50 +0100 |
| commit | b152ff51997fd8df4ebd44bfdbe2e08ff98a9b3a (patch) | |
| tree | a029ff151200f946a29d058434e1c1d260f99836 /perl-install/fs | |
| parent | 67da4ef5c862576e046ab4d813de17628adfa6c4 (diff) | |
| download | drakx-b152ff51997fd8df4ebd44bfdbe2e08ff98a9b3a.tar drakx-b152ff51997fd8df4ebd44bfdbe2e08ff98a9b3a.tar.gz drakx-b152ff51997fd8df4ebd44bfdbe2e08ff98a9b3a.tar.bz2 drakx-b152ff51997fd8df4ebd44bfdbe2e08ff98a9b3a.tar.xz drakx-b152ff51997fd8df4ebd44bfdbe2e08ff98a9b3a.zip | |
add minimal support for exFAT
colorize it the same way as FAT or NTFS
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/format.pm | 1 | ||||
| -rw-r--r-- | perl-install/fs/type.pm | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm index 039352928..a7c5e49a6 100644 --- a/perl-install/fs/format.pm +++ b/perl-install/fs/format.pm @@ -25,6 +25,7 @@ For each filesystem, list: [ package_name, command_to_use, options_to_use ] =cut my %cmds = ( + exfat => [ 'exfat-utils', 'mkfs.exfat' ], ext2 => [ 'e2fsprogs', 'mkfs.ext2', '-F' ], ext3 => [ 'e2fsprogs', 'mkfs.ext3', '-F' ], ext4 => [ 'e2fsprogs', 'mkfs.ext4', '-F' ], diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index 83ca26ddc..fd62dcb6c 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -43,6 +43,7 @@ if_(arch() =~ /i.86|x86_64/, 0x0b => 'vfat', 'FAT32', 0x07 => 'ntfs-3g', 'NTFS-3G', 0x07 => 'ntfs', 'NTFS', + 0x07 => 'exfat', 'exFAT', ), ], @@ -353,7 +354,7 @@ Is it another OS that linux can access its filesystem =cut -sub isOtherAvailableFS { isESP($_[0]) || isFat_or_NTFS($_[0]) || member($_[0]{fs_type}, 'ufs', 'hfs', 'iso9660', 'nilfs2') } +sub isOtherAvailableFS { isESP($_[0]) || isFat_or_NTFS($_[0]) || member($_[0]{fs_type}, 'ufs', 'hfs', 'iso9660', 'nilfs2', 'exfat') } sub isMountableRW { (isTrueFS($_[0]) || isOtherAvailableFS($_[0])) && $_[0]{fs_type} ne 'ntfs' } sub cannotBeMountable { my ($part) = @_; |