summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-09-07 18:04:10 +0000
committerThierry Vignaud <tv@mageia.org>2011-09-07 18:04:10 +0000
commitdf3ee1409d4a54eab82bd7e0c7679deb7547e45e (patch)
treef316440582f9a63cb483381109da95e6985a43e0 /perl-install
parent5e8989abdbf94bd7acc22b027e389daca3b74af2 (diff)
downloaddrakx-df3ee1409d4a54eab82bd7e0c7679deb7547e45e.tar
drakx-df3ee1409d4a54eab82bd7e0c7679deb7547e45e.tar.gz
drakx-df3ee1409d4a54eab82bd7e0c7679deb7547e45e.tar.bz2
drakx-df3ee1409d4a54eab82bd7e0c7679deb7547e45e.tar.xz
drakx-df3ee1409d4a54eab82bd7e0c7679deb7547e45e.zip
(default_packages) merge cpufreq detection logic into
detect_devices::hasCPUFreq(), which is cleaner and enable us to install cpufreq on more cases
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm7
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/any.pm3
3 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 49ed09cab..3ad459054 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1254,7 +1254,12 @@ sub hasCPUMicrocode() {
return $hasCPUMicrocode;
}
-sub hasCPUFreq() { require cpufreq; to_bool(cpufreq::get_modules()) }
+sub hasCPUFreq() {
+ require cpufreq;
+ to_bool(cpufreq::get_modules())
+ || cat_('/proc/cpuinfo') =~ /AuthenticAMD/ && arch() =~ /x86_64/
+ || cat_('/proc/cpuinfo') =~ /model name.*Intel\(R\) Core\(TM\)2 CPU/;
+}
sub hasWacom() { find { $_->{vendor} == 0x056a || $_->{driver} =~ /wacom/ } usb_probe() }
sub hasTouchpad() { any { $_->{Synaptics} || $_->{ALPS} || $_->{Elantech} } getInputDevices() }
sub hasNumpad() { any { $_->{Numpad} } getInputDevices() }
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1c2e3d88b..4da1eb0c3 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
- better microcode_ctl management
- fix cpufreq detection corrupting other types
+- install cpufreq on more cases
Version 13.62 - 22 August 2011
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 623892693..8f90028c0 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -545,8 +545,7 @@ sub default_packages {
push @l, "cryptsetup" if !is_empty_array_ref($o->{all_hds}{dmcrypts});
push @l, "dmraid" if any { fs::type::is_dmraid($_) } @{$o->{all_hds}{hds}};
push @l, "microcode_ctl" if detect_devices::hasCPUMicrocode();
- push @l, 'cpufreq' if cat_('/proc/cpuinfo') =~ /AuthenticAMD/ && arch() =~ /x86_64/
- || cat_('/proc/cpuinfo') =~ /model name.*Intel\(R\) Core\(TM\)2 CPU/;
+ push @l, 'cpufreq' if detect_devices::hasCPUFreq();
push @l, 'apmd' if -e "/proc/apm";
push @l, detect_devices::probe_name('Pkg');