From 326290d204e539918d5847776db0d373beca0f96 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 24 Mar 2005 11:46:48 +0000
Subject: use raid::free_mds() and don't sort (we provide a better numerically
 sorted list)

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

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index a22d54e6b..e478d9e86 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1006,11 +1006,10 @@ sub is_part_existing {
 
 sub modifyRAID {
     my ($in, $raids, $md_part) = @_;
-    my @free_mds = difference2([ map { "md$_" } 0 .. raid::max_nb() ], [ map { $_->{device} } @$raids ]);
     my $prev_device = $md_part->{device};
     $in->ask_from('', '',
 		  [
-{ label => N("device"), val => \$md_part->{device}, list => [ $md_part->{device}, @free_mds ] },
+{ label => N("device"), val => \$md_part->{device}, list => [ $md_part->{device}, raid::free_mds($raids) ], sort => 0 },
 { label => N("level"), val => \$md_part->{level}, list => [ qw(0 1 4 5 linear) ] },
 { label => N("chunk size in KiB"), val => \$md_part->{'chunk-size'} },
 		  ],
-- 
cgit v1.2.1