(fs::partitioning_wizard::main) use newly introduced raid2real_kind() in

order to get data about RAID devices, thus fixing:
- crashing on selecting a RAID device (calling first_usable_sector on
  undefined value in partition_table::get_normal_parts_and_holes())
- listing RAID devices

(bug introduced in commit r265764 pterjan by on Feb 4 2010:
"partitioning wizard: offer to install on dmraid and existing lvm")

sadly we trade "calling method on undefined value" for  "calling method
on unblessed reference" (see next commit)

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 5131c9a42..ee7253c65 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -504,7 +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} };
-        push @kinds, diskdrake::hd_gtk::raid2kind() if @{$all_hds->{raids}};
+        push @kinds, diskdrake::hd_gtk::raid2real_kind($_) foreach @{$all_hds->{raids}};
         push @kinds, map { diskdrake::hd_gtk::lvm2kind($_) } @{$all_hds->{lvms}};
 
         my $hdchoice = Gtk2::HBox->new;