summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-10-05 16:39:16 +0000
committerThierry Vignaud <tv@mageia.org>2012-10-05 16:39:16 +0000
commitb44aa967c224f71abce9cba7db6a899c097cc572 (patch)
tree178eb1de3bf6e6a78ff574e56d725c4c8138a06f /perl-install
parent8e7a932ca210c00801c9466791ca3882a5d10d51 (diff)
downloaddrakx-b44aa967c224f71abce9cba7db6a899c097cc572.tar
drakx-b44aa967c224f71abce9cba7db6a899c097cc572.tar.gz
drakx-b44aa967c224f71abce9cba7db6a899c097cc572.tar.bz2
drakx-b44aa967c224f71abce9cba7db6a899c097cc572.tar.xz
drakx-b44aa967c224f71abce9cba7db6a899c097cc572.zip
(main,hasCPUMicrocode) load 'microcode' asynchronously
thus preventing big wait when not supported (mga#7671)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm1
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/install/install2.pm2
3 files changed, 5 insertions, 1 deletions
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";