diff options
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/raid.pm | 6 |
2 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 4d87ad5c9..ff4116fa6 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,6 +1,7 @@ - allow minimal install without suggests (#45665) - install the right kernel-XXX-devel-latest flavor instead of hardcoding 'kernel-desktop-devel-latest' +- fix existing raid detection during install (#53159) Version 12.47 - 1 September 2009 diff --git a/perl-install/raid.pm b/perl-install/raid.pm index 5252511a0..e681a4649 100644 --- a/perl-install/raid.pm +++ b/perl-install/raid.pm @@ -94,6 +94,10 @@ sub updateSize { }; } +sub allmodules { + [ 'raid0', 'raid1', 'raid10', 'raid456' ]; +} + sub module { my ($part) = @_; my $level = $part->{level}; @@ -195,7 +199,7 @@ sub detect_during_install_once { map { devices::make($_->{device}) } @parts), "\n"); run_program::run('mdadm', '>>', '/etc/mdadm.conf', '--examine', '--scan'); - foreach (@{parse_mdadm_conf(scalar cat_('/etc/mdadm.conf'))->{ARRAY}}) { + foreach (@{allmodules()}) { eval { modules::load(module($_)) }; } run_program::run('mdadm', '--assemble', '--scan'); |