From 29d9934ca3d8493b249efc6b883590fdbc08408a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 13 Jan 2014 06:36:23 +0100
Subject: do not propose check bad blocks for btrfs (Manuel Hiebel, mga#10116)

---
 perl-install/fs/partitioning.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/fs/partitioning.pm')

diff --git a/perl-install/fs/partitioning.pm b/perl-install/fs/partitioning.pm
index 015a7e4e8..cf85aaa33 100644
--- a/perl-install/fs/partitioning.pm
+++ b/perl-install/fs/partitioning.pm
@@ -52,7 +52,7 @@ sub choose_partitions_to_format {
 	    ({
 	      text => partition_table::description($e), type => 'bool',
 	      val => \$e->{toFormatTmp}
-	     }, if_(!isLoopback($_) && !member($_->{fs_type}, 'reiserfs', 'xfs', 'jfs'), {
+	     }, if_(!isLoopback($_) && !member($_->{fs_type}, qw(btrfs jfs reiserfs xfs)), {
 	      text => partition_table::description($e), type => 'bool', advanced => 1, 
 	      disabled => sub { !$e->{toFormatTmp} },
 	      val => \$e->{toFormatCheck}
-- 
cgit v1.2.1