From 22ca970e33e03854a5f3364ac33267d5eff81ce4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 1 Aug 2011 10:48:27 +0000
Subject: (hasCPUFreq) detect machines needing cpufreq

---
 perl-install/detect_devices.pm | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index d2d6561bd..cc36dc4a7 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1237,6 +1237,7 @@ sub matching_types() {
 	mips_lemote => is_mips_lemote(),
 	mips_ict => is_mips_ict(),
 	mips_st_ls2f => is_mips_st_ls2f(),
+	cpufreq => hasCPUFreq(),
 	laptop => isLaptop(),
 	'numpad' => hasNumpad(),
 	'touchpad' => hasTouchpad(),
@@ -1245,6 +1246,7 @@ sub matching_types() {
     };
 }
 
+sub hasCPUFreq()     { require cpufreq; cpufreq::get_modules() }
 sub hasWacom()     { find { $_->{vendor} == 0x056a || $_->{driver} =~ /wacom/ } usb_probe() }
 sub hasTouchpad()  { any { $_->{Synaptics} || $_->{ALPS} || $_->{Elantech} } getInputDevices() }
 sub hasNumpad()    { any { $_->{Numpad} } getInputDevices() }
-- 
cgit v1.2.1