From c3519d28f91d6df7a2550321eeda4e0a86cd8440 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mageia.org>
Date: Sat, 24 Mar 2012 19:31:01 +0000
Subject: Fix usage of raid2kind

---
 perl-install/fs/partitioning_wizard.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 0b464da1c..5131c9a42 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -504,8 +504,7 @@ sub main {
         my $mainbox = Gtk2::VBox->new;
 
         my @kinds = map { diskdrake::hd_gtk::hd2kind($_) } sort { $a->{is_removable} <=> $b->{is_removable} } @{ $all_hds->{hds} };
-        # FIXME: raid2kind() doesn't take any arg:
-        push @kinds, map { diskdrake::hd_gtk::raid2kind($_) } @{$all_hds->{raids}};
+        push @kinds, diskdrake::hd_gtk::raid2kind() if @{$all_hds->{raids}};
         push @kinds, map { diskdrake::hd_gtk::lvm2kind($_) } @{$all_hds->{lvms}};
 
         my $hdchoice = Gtk2::HBox->new;
-- 
cgit v1.2.1