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";
}