From fd941f534c4bf78e7956fab96f5378ed3908a360 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 28 Sep 2007 16:20:50 +0000
Subject: add acpi-cpufreq support for some Intel CPUs (family 6 model 15)
 (from Herton Ronaldo Krzesinski, #30208)

---
 perl-install/cpufreq.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install/cpufreq.pm')

diff --git a/perl-install/cpufreq.pm b/perl-install/cpufreq.pm
index 34862c015..8fa9b5a17 100644
--- a/perl-install/cpufreq.pm
+++ b/perl-install/cpufreq.pm
@@ -38,6 +38,15 @@ sub find_pci_device {
     any { my $dev = $_; any { $_->{vendor} == $dev->[0] && $_->{id} == $dev->[1] } pci_probe() } @devices;
 }
 
+sub probe_acpi_cpufreq() {
+    any {
+        get_vendor($_) eq "Intel" &&
+        has_flag($_, 'est') &&
+        $_->{'cpu family'} == 6 &&
+        $_->{model} == 15;
+    } get_cpus();
+}
+
 sub probe_centrino() {
     any {
         get_vendor($_) eq "Intel" &&
@@ -114,6 +123,7 @@ sub probe_longrun() {
 }
 
 my @modules = (
+    [ "acpi-cpufreq", \&probe_acpi_cpufreq ],
     # probe centrino first, it will get detected on ICH chipset and
     # speedstep-ich doesn't work with it
     [ "speedstep-centrino", \&probe_centrino ],
-- 
cgit v1.2.1