3 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 038a8da57..2723f05d7 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,5 @@
 - fix raid initialisation during install (#54706)
+- fix raid detection during install (#54706)
 
 Version 12.67 - 18 October 2009
 
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 3a49ab92c..61713f637 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,5 @@
 - fix raid initialisation during install (#54706)
+- fix raid detection during install (#54706)
 
 Version 12.67 - 18 October 2009
 
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 93ec9748e..11284a90a 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -182,6 +182,9 @@ sub free_mds {
 
 sub detect_during_install {
     my (@parts) = @_;
+    foreach (@{allmodules()}) {
+	eval { modules::load($_) };
+    }
     detect_during_install_once(@parts);
     detect_during_install_once(@parts) if active_mds(); #- try again to detect RAID 10
 
@@ -198,10 +201,6 @@ sub detect_during_install_once {
 				   (map { "/dev/$_" } active_mds()), 
 				   map { devices::make($_->{device}) } @parts), "\n");
     run_program::run('mdadm', '>>', '/etc/mdadm.conf', '--examine', '--scan');
-
-    foreach (@{allmodules()}) {
-	eval { modules::load(module($_)) };
-    }
     run_program::run('mdadm', '--assemble', '--scan');    
 }