From 1d955b7ef65c9ded4b0d8757a41472641f289806 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 25 Jan 2016 20:12:03 +0100
Subject: further simplify

---
 perl-install/detect_devices.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index ffd7de214..526ff17fc 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1153,9 +1153,7 @@ Cache the result of c::dmi_probe() (aka C<dmidecode>) and return the list of ite
 
 sub dmi_probe() {
     state $dmi_probe;
-    if (arch() !~ /86/) {
-        return;
-    }
+    return if arch() !~ /86/;
     $dmi_probe ||= $> ? [] : [ c::dmi_probe() ];
     @$dmi_probe;
 }
-- 
cgit v1.2.1