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_options.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/fs/mount_options.pm') diff --git a/perl-install/fs/mount_options.pm b/perl-install/fs/mount_options.pm index b1dea9b42..57ec4d47f 100644 --- a/perl-install/fs/mount_options.pm +++ b/perl-install/fs/mount_options.pm @@ -32,9 +32,10 @@ sub unpack { nfs => [ qw(rsize=8192 wsize=8192) ], smbfs => [ qw(username= password=) ], davfs2 => [ qw(username= password= uid= gid=) ], + ext4dev => [ qw(extents) ], reiserfs => [ 'notail' ], ); - push @{$per_fs{$_}}, 'usrquota', 'grpquota' foreach 'ext2', 'ext3', 'xfs'; + push @{$per_fs{$_}}, 'usrquota', 'grpquota' foreach 'ext2', 'ext3', 'ext4dev', 'xfs'; while (my ($fs, $l) = each %per_fs) { $part->{fs_type} eq $fs || $part->{fs_type} eq 'auto' && member($fs, @auto_fs) or next; @@ -229,6 +230,9 @@ sub set_default { 'iocharset=' => $opts{iocharset}, 'codepage=' => $opts{codepage}, }); } + if ($part->{fs_type} eq 'ext4dev') { + put_in_hash($options, { extents => 1 }); + } if ($part->{fs_type} eq 'ntfs') { put_in_hash($options, { ro => 1, 'nls=' => $opts{iocharset}, 'umask=0' => $opts{security} < 3, 'umask=0022' => $opts{security} < 4, -- cgit v1.2.1