From e395c18057f9f7ee85ef8921c66814c08d8b196f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 25 Jan 2012 18:29:43 +0000 Subject: (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") --- perl-install/detect_devices.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install/detect_devices.pm') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 2d3c2fd5c..ad875b352 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -967,13 +967,11 @@ sub pcmcia_probe() { 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; } -- cgit v1.2.1