From 78386db640777f6cc85ca8616e6d4b015725d6df Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 9 Apr 2013 06:00:24 +0000
Subject: fix detecting some USB devices due to not reporting their class
 (mga#9674)

regression introduced in commit r7096 on 2013-01-14:
"use a proper interface between C (ldetect) & perl world, using XS"
---
 perl-install/c/stuff.xs.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/c')

diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 42dc7841d..de4800529 100755
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -305,6 +305,7 @@ usb_probe()
       snprintf(buf, sizeof(buf), "%s|%s|%s", class_text.usb_class_text, class_text.usb_sub_text, class_text.usb_prot_text);
       HV * rh = common_pciusb_hash_init(e);
       hv_store(rh, "usb_port",       8, newSVnv(e->usb_port),   0);
+      hv_store(rh, "media_type",    10, newSVpv(buf, 0),        0);
       PUSHs(newRV((SV *)rh));
     }
     pciusb_free(&entries);
-- 
cgit v1.2.1