From e7f5c8ac46701449630b2a4d145d305ea4fc63be Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 5 Oct 2012 16:39:16 +0000
Subject: (main,hasCPUMicrocode) load 'microcode' asynchronously

thus preventing big wait when not supported (mga#7671)
---
 perl-install/detect_devices.pm   | 1 -
 perl-install/install/NEWS        | 3 +++
 perl-install/install/install2.pm | 2 ++
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 9547d8a9a..6ba852fec 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1241,7 +1241,6 @@ sub matching_types() {
 sub hasCPUMicrocode() {
     state $hasCPUMicrocode;
     if (!defined $hasCPUMicrocode) {
-        eval { modules::load('microcode') };
         $hasCPUMicrocode = to_bool(find { 'microcode' } modules::loaded_modules());
     }
     return $hasCPUMicrocode;
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 39d22cf2d..27e906a0c 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- load 'microcode' asynchronously, preventing big wait when not supported
+  (mga#7671)
+
 Version 14.46.2 - 3 October 2012
 
 - adapt to latest dash-static
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 24d99cb03..6717a089e 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -613,6 +613,8 @@ sub main {
         init_local_install($o);
     } else {
         start_udev();
+        # load some modules early but asynchronously:
+        run_program::raw({ detach => 1 }, 'modprobe', 'microcode');
     }
 
     $o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : "/mnt";
-- 
cgit v1.2.1