From 0cec176f0607443bf3019af2e9e6fa25f0441b10 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 6 Nov 2007 15:43:05 +0000 Subject: add support for ext4 --- perl-install/fs/mount.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/fs/mount.pm') diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm index 950eb1715..571aee09f 100644 --- a/perl-install/fs/mount.pm +++ b/perl-install/fs/mount.pm @@ -35,7 +35,7 @@ sub mount { $fs or log::l("not mounting $dev partition"), return; { - my @fs_modules = qw(ext3 hfs jfs nfs ntfs romfs reiserfs ufs xfs vfat); + my @fs_modules = qw(ext3 ext4dev hfs jfs nfs ntfs romfs reiserfs ufs xfs vfat); my @types = (qw(ext2 proc sysfs usbfs usbdevfs iso9660 devfs devpts), @fs_modules); push @types, 'smb', 'smbfs', 'davfs2' if !$::isInstall; @@ -170,10 +170,10 @@ sub part { } mount($dev, $mntpoint, $fs_type, $b_rdonly, $options, $o_wait_message); - if ($options =~ /usrquota|grpquota/ && $part->{fs_type} eq 'ext3') { + if ($options =~ /usrquota|grpquota/ && member($part->{fs_type}, qw(ext3 ext4dev))) { if (! find { -e "$mntpoint/$_" } qw(aquota.user aquota.group quota.user quota.group)) { #- quotacheck will create aquota.user and/or aquota.group, - #- needed for quotas on ext3. + #- needed for quotas on ext[34]. run_program::run('quotacheck', $mntpoint); } } -- cgit v1.2.1