diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-01 12:51:33 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-01 12:51:33 +0000 |
| commit | 5afb716b81f174980b45127ad48f30ebb17c209e (patch) | |
| tree | 2dba2ecf3d1bfb1f682a6369b0f913a173516d1a /perl-install | |
| parent | a91ad040344a4f24aacce7b5d04e34c9ece22661 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/raid.pm | 12 |
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; } |