summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-03-01 11:47:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-03-01 11:47:50 +0000
commit3e21bfebdfc17d3eadf3374c2e9ba0eb4daad79f (patch)
tree3798568f1ba064ee8c8b2d4bad6d528c67bb7ae2 /perl-install/detect_devices.pm
parentca29efd881bd3ced82efc77ae0c5934848172ea9 (diff)
downloaddrakx-3e21bfebdfc17d3eadf3374c2e9ba0eb4daad79f.tar
drakx-3e21bfebdfc17d3eadf3374c2e9ba0eb4daad79f.tar.gz
drakx-3e21bfebdfc17d3eadf3374c2e9ba0eb4daad79f.tar.bz2
drakx-3e21bfebdfc17d3eadf3374c2e9ba0eb4daad79f.tar.xz
drakx-3e21bfebdfc17d3eadf3374c2e9ba0eb4daad79f.zip
add is_a_recent_computer()
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 6b172f8da..73c768d5c 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -579,6 +579,11 @@ sub raidAutoStart {
}
}
+sub is_a_recent_computer {
+ my ($frequence) = map { /cpu MHz\s*:\s*(.*)/ } cat_("/proc/cpuinfo");
+ $frequence > 600;
+}
+
#-######################################################################################
#- Wonderful perl :(
#-######################################################################################