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');