From 542f1313f503c37cf59df69e9d022f7b5175febd Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 6 Sep 2004 04:56:21 +0000 Subject: be more failsafe with half broken existing raids --- perl-install/raid.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install') diff --git a/perl-install/raid.pm b/perl-install/raid.pm index 092bd9441..4a113f5de 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -169,6 +169,7 @@ sub get_existing { foreach my $md (active_mds()) { my $conf = parse_mdadm_conf(scalar run_program::get_stdout('mdadm', '--detail', '--brief', devices::make($md))); + @{$conf->{ARRAY}} or next; @{$conf->{ARRAY}} == 1 or internal_error("too many answers"); my $raw_part = $conf->{ARRAY}[0]; -- cgit v1.2.1