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.pm17
1 files changed, 4 insertions, 13 deletions
diff --git a/perl-install/cpufreq.pm b/perl-install/cpufreq.pm
index 17a39b25e..bbcf56700 100644
--- a/perl-install/cpufreq.pm
+++ b/perl-install/cpufreq.pm
@@ -74,15 +74,6 @@ sub probe_gsx() {
find_pci_device([ 0x1078, 0x0100 ], [ 0x1078, 0x0002 ], [ 0x1078, 0x0000 ]);
}
-sub probe_powerpc() {
- arch() =~ /ppc/ && any {
- member($_->{motherboard}, ('PowerBook3,4', 'PowerBook3,5', 'PowerBook4,1', 'PowerBook3,2', 'MacRISC3')) &&
- # Kernel contains a special case for the supported 750FX,
- # not sure if the cpu name can be used, so use same test as kernel
- first($_->{revision} =~ /\bpvr\s+(\d+)\b/) == 7000;
- } get_cpus();
-}
-
sub probe_p4() {
any {
get_vendor($_) eq "Intel" && (
@@ -110,9 +101,9 @@ sub probe_powernow_k7() {
sub probe_powernow_k8() {
any {
get_vendor($_) eq "AMD" && (
- ( $_->{'cpu family'} == 15 && ($_->{'power management'} =~ /\bfid\b/ || has_flag($_, 'fid')) ) # frequency ID control)
+ ($_->{'cpu family'} == 15 && ($_->{'power management'} =~ /\bfid\b/ || has_flag($_, 'fid'))) # frequency ID control)
||
- ( $_->{'cpu family'} == 16 && ($_->{'power management'} =~ /\bhwpstate\b/ )) # support for Athlon/Phenom II processors (#58477))
+ $_->{'cpu family'} == 16 && ($_->{'power management'} =~ /\bhwpstate\b/) # support for Athlon/Phenom II processors (#58477))
);
} get_cpus();
}
@@ -166,11 +157,11 @@ sub find_driver() {
$m && $m->[0];
}
-my @governor_modules = map { "cpufreq_$_" } qw(performance powersave conservative ondemand);
+my @governor_modules = map { "cpufreq_$_" } qw(powersave conservative ondemand);
sub get_modules() {
my $module;
- if (probe_powerpc() || ($module = find_driver())) {
+ if ($module = find_driver()) {
return if_($module, $module), @governor_modules;
}
();