diff options
| -rw-r--r-- | perl-install/detect_devices.pm | 5 |
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 :( #-###################################################################################### |