summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 :(
#-######################################################################################