diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-03-24 11:46:48 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-03-24 11:46:48 +0000 |
commit | 326290d204e539918d5847776db0d373beca0f96 (patch) | |
tree | 3270defda4d44e0f35e521b693a320f7b2176661 /perl-install/diskdrake | |
parent | d186a76fd2fb10ab18cbed744f7066fe4d019225 (diff) | |
download | drakx-backup-do-not-use-326290d204e539918d5847776db0d373beca0f96.tar drakx-backup-do-not-use-326290d204e539918d5847776db0d373beca0f96.tar.gz drakx-backup-do-not-use-326290d204e539918d5847776db0d373beca0f96.tar.bz2 drakx-backup-do-not-use-326290d204e539918d5847776db0d373beca0f96.tar.xz drakx-backup-do-not-use-326290d204e539918d5847776db0d373beca0f96.zip |
use raid::free_mds() and don't sort (we provide a better numerically sorted list)
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r-- | perl-install/diskdrake/interactive.pm | 3 |
1 files changed, 1 insertions, 2 deletions
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'} }, ], |