From b1b5a86a6ca0f02e9daa41bd977067d330f60c97 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gwenol=C3=A9=20Beauchesne?= <gbeauchesne@mandriva.org>
Date: Tue, 15 Apr 2003 13:59:44 +0000
Subject: Fix hasSMP()

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 39c86f38e..383844143 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -481,7 +481,7 @@ sub get_mac_generation() {
 sub hasSMP {
     # Much simpler if we have APIC/ACPI stuff
     foreach (syslog()) {
-        my ($nprocs) = (m/Processors: (\d+)/ || m/(\d+) CPUs avail/) or next;
+        my $nprocs = (m/(^Processors: (\d+)|(\d+) CPUs avail)/)[1] or next;
         return $nprocs > 1 ? 1 : 0;
     }
     c::detectSMP()
-- 
cgit v1.2.1