File riscv-support.patch of Package perl-Sys-CPU

Overview Repositories Revisions Requests Users Attributes Meta

File riscv-support.patch of Package perl-Sys-CPU

Index: Sys-CPU-0.61/CPU.xs
===================================================================
--- Sys-CPU-0.61.orig/CPU.xs
+++ Sys-CPU-0.61/CPU.xs
@@ -404,6 +404,7 @@ CODE:
     if (!value) value = proc_cpuinfo_field ("model name");
     if (!value) value = proc_cpuinfo_field ("machine");
     if (!value) value = proc_cpuinfo_field ("vendor_id");
+    if (!value) value = proc_cpuinfo_field ("uarch");
 #endif
 #ifdef WINDOWS
     if (GetSysInfoKey("Identifier", value)) {
Index: Sys-CPU-0.61/t/Sys-CPU.t
===================================================================
--- Sys-CPU-0.61.orig/t/Sys-CPU.t
+++ Sys-CPU-0.61/t/Sys-CPU.t
@@ -27,6 +27,8 @@ if (defined($speed)) {
     print "ok 3 (CPU Speed: test skipped on MSWin32)\n";
 } elsif ($Config{archname} =~ /^(arm|aarch64)/ ) {
     print "ok 3 (CPU Speed: test skipped on ARM and AArch64)\n";
+} elsif ($Config{archname} =~ /^riscv/ ) {
+    print "ok 3 (CPU Speed: test skipped on RISC-V)\n";
 } else  {
     print "not ok 3 (cpu_clock undefined (ok if Win9x))\n";
 }

Places

File riscv-support.patch of Package perl-Sys-CPU

Places