summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/detect_devices.pm10
-rw-r--r--perl-install/install/NEWS2
2 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 46655599b..117f14ed8 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1238,6 +1238,7 @@ sub matching_types() {
mips_ict => is_mips_ict(),
mips_st_ls2f => is_mips_st_ls2f(),
cpufreq => hasCPUFreq(),
+ microcode => hasCPUMicrocode(),
laptop => isLaptop(),
'numpad' => hasNumpad(),
'touchpad' => hasTouchpad(),
@@ -1246,6 +1247,15 @@ sub matching_types() {
};
}
+sub hasCPUMicrocode() {
+ state $hasCPUMicrocode;
+ if (!defined $hasCPUMicrocode) {
+ eval { modules::load('microcode') };
+ $hasCPUMicrocode = to_bool(find { 'microcode' } modules::loaded_modules());
+ }
+ return $hasCPUMicrocode;
+}
+
sub hasCPUFreq() { require cpufreq; cpufreq::get_modules() }
sub hasWacom() { find { $_->{vendor} == 0x056a || $_->{driver} =~ /wacom/ } usb_probe() }
sub hasTouchpad() { any { $_->{Synaptics} || $_->{ALPS} || $_->{Elantech} } getInputDevices() }
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 4780e5ace..0c7d2b76c 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,7 @@
- always align partitions to start at megabyte boundaries to avoid
performance issues with drives with 4k physical sectors (mga#1215)
+- add support to detect if CPU microcode is upgradable in order to
+ install microcode_ctl
Version 13.61.1 - 05 August 2011