summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-04-21 09:40:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-04-21 09:40:49 +0000
commit6cbd109d374a5e621922c42e28f3ea65a1c11add (patch)
tree2832004179cd2e17bb3305b3ac979f4f1e1b3a4e /perl-install
parent123c2fb6745c746bf4005f7d1465fc895c058ce9 (diff)
downloaddrakx-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.pm3
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' }