From 41e7a8dc76cc90cc741304a3bbf6188aef135cfa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 19 Sep 2007 13:40:38 +0000
Subject: - getInputDevices(): keep "Bus=..." for drakx-kbd-mouse-x11

---
 perl-install/NEWS              | 1 +
 perl-install/detect_devices.pm | 1 +
 2 files changed, 2 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index c568a5c7a..e878ca98a 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,5 @@
 - fix getting UUID on mdmadm (eg: md0) devices
+- getInputDevices(): keep "Bus=..." for drakx-kbd-mouse-x11
 
 Version 10.4.202 - 17 September 2007, by Thierry Vignaud
 
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 249f0df6a..b1e9fc907 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -425,6 +425,7 @@ sub getInputDevices() {
             $device = {};
             $device->{vendor} = /Vendor=(\w+)/ && $1;
             $device->{id} = /Product=(\w+)/ && $1;
+            $device->{bustype} = /Bus=(\w+)/ && $1;
         } elsif (/N: Name="(.*)"/) {
 	    my $descr = $1;
 	    $device->{description} = "|$descr";
-- 
cgit v1.2.1