perl-Sys-CPU/Sys-CPU-0.61-Add-support-fo...

37 lines
1.1 KiB
Diff

From f77b2b0c795f5d2ad7a85ae3bfffcf74232836ec Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Tue, 6 May 2014 08:47:16 +0200
Subject: [PATCH 1/2] Add support for cpu_type on ARM and AArch64 Linux
platforms
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
The CPU type is listed as Processor (upper-cased P) entry. SMP systems
enumerate cores by processor (lower-cased P) entries in addition.
The Processor is always first, so case-insesitive look-up is not
a problem.
Signed-off-by: Petr Písař <ppisar@redhat.com>
---
CPU.xs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/CPU.xs b/CPU.xs
index 236b14d..067c9cb 100644
--- a/CPU.xs
+++ b/CPU.xs
@@ -395,6 +395,9 @@ CODE:
sysctlbyname("hw.model", value, &len, NULL, 0);
#endif
#ifdef __linux__
+#if defined __arm__ || defined __aarch64__
+ value = proc_cpuinfo_field ("Processor");
+#endif
#if defined __s390__ || defined __s390x__
value = processor_machine_field (proc_cpuinfo_field ("processor") );
#endif
--
1.9.0