From 3e7ac9af750f6c4968d38ea5e6717a4940db7dc2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 12 Sep 1999 19:03:25 +0000
Subject: no_comment

---
 perl-install/detect_devices.pm | 5 +++++
 perl-install/install2.pm       | 1 -
 perl-install/install_any.pm    | 4 ++--
 perl-install/pkgs.pm           | 1 -
 4 files changed, 7 insertions(+), 4 deletions(-)

(limited to 'perl-install')

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;
+}
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 25d43b250..45340f8e9 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -21,7 +21,6 @@ use pkgs;
 use printer;
 use modules;
 use detect_devices;
-use smp;
 use modparm;
 use run_program;
 use install_steps_graphical;
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 2386619b8..4c96920a0 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -12,8 +12,8 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK);
 
 use common qw(:common :system);
 use run_program;
+use detect_devices;
 use pkgs;
-use smp;
 use log;
 
 1;
@@ -108,7 +108,7 @@ sub setPackages($$) {
 	$o->{compss}     = pkgs::readCompss    ($o->{packages});
 	$o->{compssListLevels} = pkgs::readCompssList($o->{packages});
 	$o->{compssListLevels} ||= $install_classes;
-	push @{$o->{base}}, "kernel-smp" if smp::detect();
+	push @{$o->{base}}, "kernel-smp" if detect_devices::hasSMP();
 
 	do {
 	    my $p = $o->{packages}{$_} or log::l(), next;
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 18f1693be..6a6bf002d 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -7,7 +7,6 @@ use vars qw($fd);
 use common qw(:common :file :functional);
 use install_any;
 use log;
-use smp;
 use pkgs;
 use fs;
 use lang;
-- 
cgit v1.2.1