From 3ffb5bc2444c5278d1c551de9a81838ca24afbe4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 23 Oct 2009 15:52:29 +0000
Subject: cpufreq: load e_powersaver for VIA C7 (#41377)

---
 perl-install/NEWS         |  2 ++
 perl-install/cpufreq.pm   | 10 ++++++++++
 perl-install/install/NEWS |  1 +
 3 files changed, 13 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index e63930ae1..1ae00bf85 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- cpufreq: load e_powersaver for VIA C7
+
 Version 12.70 - 22 October 2009
 
 - curses backend: do not crash when resuming interface
diff --git a/perl-install/cpufreq.pm b/perl-install/cpufreq.pm
index 5468e45ae..54710fd05 100644
--- a/perl-install/cpufreq.pm
+++ b/perl-install/cpufreq.pm
@@ -123,6 +123,15 @@ sub probe_longhaul() {
     } get_cpus();
 }
 
+sub probe_e_powersaver() {
+    any {
+        get_vendor($_) eq "Centaur" &&
+        has_flag($_, 'est') &&
+        $_->{'cpu family'} == 6 &&
+        member($_->{model}, 10, 13);
+    } get_cpus();
+}
+
 sub probe_longrun() {
     any {
         get_vendor($_) eq "Transmeta" &&
@@ -146,6 +155,7 @@ my @modules = (
     [ "powernow-k7", \&probe_powernow_k7 ],
     [ "powernow-k8", \&probe_powernow_k8 ],
     [ "longhaul", \&probe_longhaul ],
+    [ "e_powersaver", \&probe_e_powersaver ],
     [ "longrun", \&probe_longrun ],
 );
 
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 50eb10318..f7c0f493c 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,7 @@
 - minimal install: install packages with higher rpmsrate level only
   (level 5, and not level 4 + 5) when suggests are disabled
   (it was only done for truly minimal install before)
+- cpufreq: load e_powersaver for VIA C7
 
 Version 12.70 - 22 October 2009
 
-- 
cgit v1.2.1