1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 42f14aff6..89698fd99 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -943,9 +943,14 @@ sub pcmcia_probe() {
 
 my $dmi_probe;
 sub dmi_probe() {
+    if (arch() !~ /86/) {
+        $dmi_probe ||= [];
+    }
+    else {
     $dmi_probe ||= [ map {
 	/(.*?)\t(.*)/ && { bus => 'DMI', driver => $1, description => $2 };
     } $> ? () : c::dmi_probe() ];
+    }
     @$dmi_probe;
 }
 
@@ -1045,7 +1050,7 @@ sub dmidecode() {
     return @dmis if $dmidecode_already_runned;
 
     return if $>;
-    my ($ver, @l) = run_program::get_stdout('dmidecode');
+    my ($ver, @l) = arch() =~ /86/ ? run_program::get_stdout('dmidecode') : ();
 
     my $tab = "\t";