summaryrefslogtreecommitdiffstats
path: root/perl-install/cpufreq.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/cpufreq.pm')
-rw-r--r--perl-install/cpufreq.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/cpufreq.pm b/perl-install/cpufreq.pm
index 50a994e06..d202031ab 100644
--- a/perl-install/cpufreq.pm
+++ b/perl-install/cpufreq.pm
@@ -85,8 +85,10 @@ sub probe_powerpc() {
sub probe_p4() {
any {
- get_vendor($_) eq "Intel" &&
- $_->{'cpu family'} == 15;
+ get_vendor($_) eq "Intel" && (
+ $_->{'cpu family'} == 15 ||
+ ($_->{'cpu family'} == 6 && !has_flag($_, 'est') && member($_->{model}, 9, 13, 14, 15))
+ );
} get_cpus();
}