[2797] (dmi_probe) simplify after r690

[root-odJJhXpcy38dnm+]

Revision: 2797
Author: tv
Date: 2012-01-25 19:29:43 +0100 (Wed, 25 Jan 2012)
Log Message:
-----------
(dmi_probe) simplify after r690

(was: "try to parse DMI informations only on x86 to avoid
reading/writing some random memory location on arm/mips")

Modified Paths:
--------------
drakx/trunk/perl-install/detect_devices.pm

Modified: drakx/trunk/perl-install/detect_devices.pm
===================================================================
--- drakx/trunk/perl-install/detect_devices.pm 2012-01-25 18:29:40 UTC (rev 2796)
+++ drakx/trunk/perl-install/detect_devices.pm 2012-01-25 18:29:43 UTC (rev 2797)
@@ -967,13 +967,11 @@
my $dmi_probe;
sub dmi_probe() {
if (arch() !~ /86/) {
- $dmi_probe ||= [];
+ return [];
}
- else {
$dmi_probe ||= [ map {
/(.*?)\t(.*)/ && { bus => 'DMI', driver => $1, description => $2 };
} $> ? () : c::dmi_probe() ];
- }
@$dmi_probe;
}