summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-12 19:03:25 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-12 19:03:25 +0000
commit3e7ac9af750f6c4968d38ea5e6717a4940db7dc2 (patch)
treeb23df042f801f80a660b1f84d7e1231776532719 /perl-install/detect_devices.pm
parente66c5a4cec2267d8a19ca6c924e58caa17175bbf (diff)
downloaddrakx-backup-do-not-use-3e7ac9af750f6c4968d38ea5e6717a4940db7dc2.tar
drakx-backup-do-not-use-3e7ac9af750f6c4968d38ea5e6717a4940db7dc2.tar.gz
drakx-backup-do-not-use-3e7ac9af750f6c4968d38ea5e6717a4940db7dc2.tar.bz2
drakx-backup-do-not-use-3e7ac9af750f6c4968d38ea5e6717a4940db7dc2.tar.xz
drakx-backup-do-not-use-3e7ac9af750f6c4968d38ea5e6717a4940db7dc2.zip
no_comment
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 fd98b409a..034fa48b9 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -166,3 +166,8 @@ sub syslog {
-r "/tmp/syslog" and return map { /<\d+>(.*)/ } cat_("/tmp/syslog");
`dmesg`
}
+
+sub hasSMP {
+ my $nb = grep { /^processor/ } cat_("/proc/cpuinfo");
+ $nb > 1;
+}