diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-12 19:03:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-12 19:03:25 +0000 |
| commit | 3e7ac9af750f6c4968d38ea5e6717a4940db7dc2 (patch) | |
| tree | b23df042f801f80a660b1f84d7e1231776532719 /perl-install | |
| parent | e66c5a4cec2267d8a19ca6c924e58caa17175bbf (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/detect_devices.pm | 5 | ||||
| -rw-r--r-- | perl-install/install2.pm | 1 | ||||
| -rw-r--r-- | perl-install/install_any.pm | 4 | ||||
| -rw-r--r-- | perl-install/pkgs.pm | 1 |
4 files changed, 7 insertions, 4 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; +} 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; |