summaryrefslogtreecommitdiffstats
path: root/perl-install/raid.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-01 12:51:33 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-01 12:51:33 +0000
commit5afb716b81f174980b45127ad48f30ebb17c209e (patch)
tree2dba2ecf3d1bfb1f682a6369b0f913a173516d1a /perl-install/raid.pm
parenta91ad040344a4f24aacce7b5d04e34c9ece22661 (diff)
downloaddrakx-backup-do-not-use-5afb716b81f174980b45127ad48f30ebb17c209e.tar
drakx-backup-do-not-use-5afb716b81f174980b45127ad48f30ebb17c209e.tar.gz
drakx-backup-do-not-use-5afb716b81f174980b45127ad48f30ebb17c209e.tar.bz2
drakx-backup-do-not-use-5afb716b81f174980b45127ad48f30ebb17c209e.tar.xz
drakx-backup-do-not-use-5afb716b81f174980b45127ad48f30ebb17c209e.zip
(new): now works with a list of partitions
Diffstat (limited to 'perl-install/raid.pm')
-rw-r--r--perl-install/raid.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 356a69ecb..eedd121a6 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -19,12 +19,14 @@ sub nb($) {
first((ref $nb ? $nb->{device} : $nb) =~ /(\d+)/);
}
-sub new($$) {
- my ($raid, $part) = @_;
+sub new {
+ my ($raid, @parts) = @_;
my $nb = @$raid;
- $raid->[$nb] = { 'chunk-size' => "64k", type => 0x83, disks => [ $part ], device => "md$nb", notFormatted => 1 };
- $part->{raid} = $nb;
- delete $part->{mntpoint};
+ $raid->[$nb] = { 'chunk-size' => "64k", type => 0x83, disks => [ @parts ], device => "md$nb", notFormatted => 1 };
+ foreach my $part (@parts) {
+ $part->{raid} = $nb;
+ delete $part->{mntpoint};
+ }
$nb;
}