From baa4723f40e768fd2745af98ad03b6f2ef3b93fd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 30 Mar 2013 23:29:14 +0000
Subject: adapt to xen-4.2

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e9165471f..6617fcd59 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -390,7 +390,7 @@ sub getXenBlk() {
     map {   
             s/block://;
             { device => basename($_), info => "Xen block device", media_type => 'hd', bus => 'xen' };
-    } glob("/sys/bus/xen/devices/*/block*");
+    } glob("/sys/block/xvd*");
 }
 
 sub getVirtIO() {
-- 
cgit v1.2.1