From 3da2f2c8125861ca76436049b4706f9fcd17b446 Mon Sep 17 00:00:00 2001
From: Thomas Backlund <tmb@mageia.org>
Date: Tue, 29 Mar 2016 23:06:38 +0300
Subject: fix detecting nvme devices as block devices

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

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 09911714e..e38a1b969 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -474,11 +474,11 @@ sub getMmcBlk() {
 }
 
 sub getNVMe() {
-    -d '/sys/bus/pci_express/devices' or return;
+    -d '/sys/class/nvme' or return;
     map {
             { device => basename($_), info => "NVMe block device", media_type => 'hd', bus => 'pci_express' };
     }
-    glob("/sys/bus/pci_express/devices/*/block/*");
+    glob("/sys/block/nvme*");
 }
 
 =item getCPUs()
-- 
cgit v1.2.1