diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-13 13:30:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-13 13:30:37 +0000 |
| commit | 5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c (patch) | |
| tree | bd51eab841234881b3a8923aa21f63909dc0bb00 /perl-install/raid.pm | |
| parent | b95c12f4cff7dc36b247391348d2781e70fad29c (diff) | |
| download | drakx-backup-do-not-use-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.tar drakx-backup-do-not-use-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.tar.gz drakx-backup-do-not-use-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.tar.bz2 drakx-backup-do-not-use-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.tar.xz drakx-backup-do-not-use-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.zip | |
no_comment
Diffstat (limited to 'perl-install/raid.pm')
| -rw-r--r-- | perl-install/raid.pm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm index 585f2565e..8bc4d858e 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -7,6 +7,7 @@ use strict; #- misc imports #-###################################################################################### use common qw(:common :functional); +use partition_table qw(:types); use run_program; use devices; use commands; @@ -17,11 +18,6 @@ sub nb($) { first((ref $nb ? $nb->{device} : $nb) =~ /(\d+)/); } -sub is($) { - my ($part) = @_; - $part->{device} =~ /^md/; -} - sub new($$) { my ($raid, $part) = @_; my $nb = @$raid; @@ -122,7 +118,7 @@ EOF sub make { my ($raid, $part) = @_; - is($_) and make($raid, $_) foreach @{$part->{disks}}; + isMDRAID($_) and make($raid, $_) foreach @{$part->{disks}}; my $dev = devices::make($part->{device}); eval { commands::modprobe(module($part)) }; run_program::run("raidstop", $dev); |