diff options
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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() |