1 files changed, 13 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index c8995ea82..4894b7781 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -54,7 +54,7 @@ sub floppies {
     require modules;
     state @fds;
     state $legacy_already_detected;
-    if (arch =~ /mips/) {
+    if (arch =~ /mips|arm/) {
       $o_not_detect_legacy_floppies = 1;
     }
     if (!$o_not_detect_legacy_floppies && !$legacy_already_detected) {
@@ -1179,6 +1179,18 @@ sub is_mips_st_ls2f() {
     to_bool(cat_('/proc/cpuinfo') =~ /st-ls2f/);
 }
 
+sub is_arm_openrd_client {
+    to_bool(cat_('/proc/cpuinfo') =~ /OpenRD Client/);
+}
+
+sub is_arm_versatile {
+    to_bool(cat_('/proc/cpuinfo') =~ /ARM-Versatile/);
+}
+
+sub is_arm_efikamix {
+    to_bool(cat_('/proc/cpuinfo') =~ /Efika MX/);
+}
+
 sub is_xbox() {
     any { $_->{vendor} == 0x10de && $_->{id} == 0x02a5 } pci_probe();
 }