diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-04-21 09:40:49 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-04-21 09:40:49 +0000 |
| commit | 6cbd109d374a5e621922c42e28f3ea65a1c11add (patch) | |
| tree | 2832004179cd2e17bb3305b3ac979f4f1e1b3a4e /perl-install | |
| parent | 123c2fb6745c746bf4005f7d1465fc895c058ce9 (diff) | |
| download | drakx-6cbd109d374a5e621922c42e28f3ea65a1c11add.tar drakx-6cbd109d374a5e621922c42e28f3ea65a1c11add.tar.gz drakx-6cbd109d374a5e621922c42e28f3ea65a1c11add.tar.bz2 drakx-6cbd109d374a5e621922c42e28f3ea65a1c11add.tar.xz drakx-6cbd109d374a5e621922c42e28f3ea65a1c11add.zip | |
create true_local_fs_types() out of isTrueLocalFS()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs/type.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index 841d6e12b..5bf034d9e 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -308,6 +308,7 @@ sub type_subpart_from_magic { $p; } +sub true_local_fs_types { qw(ext3 ext2 reiserfs xfs jfs) } sub isEmpty { !$_[0]{fs_type} && $_[0]{pt_type} == 0 } sub isEfi { arch() =~ /ia64/ && $_[0]{pt_type} == 0xef } @@ -323,7 +324,7 @@ sub isAppleBootstrap { $_[0]{pt_type} == 0x401 && defined $_[0]{isBoot} } sub isHiddenMacPart { defined $_[0]{isMap} } sub isTrueFS { isTrueLocalFS($_[0]) || member($_[0]{fs_type}, qw(nfs)) } -sub isTrueLocalFS { member($_[0]{fs_type}, qw(ext2 reiserfs xfs jfs ext3)) } +sub isTrueLocalFS { member($_[0]{fs_type}, true_local_fs_types()) } sub isOtherAvailableFS { isEfi($_[0]) || isFat_or_NTFS($_[0]) || member($_[0]{fs_type}, 'ufs', 'hfs', 'iso9660') } #- other OS that linux can access its filesystem sub isMountableRW { (isTrueFS($_[0]) || isOtherAvailableFS($_[0])) && $_[0]{fs_type} ne 'ntfs' } |