diff options
| author | Thierry Vignaud <tv@mageia.org> | 2013-04-09 06:00:24 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2013-04-09 06:00:24 +0000 |
| commit | abe02f174aeb2745faffd0ce8426cc42bf52cd58 (patch) | |
| tree | c3cf3ae2a187846b4f93ce8c1588a6d0ab7a201a /perl-install/c/stuff.xs.pl | |
| parent | 444fd1835018fe00fc9a01cfecfd150e175e2106 (diff) | |
| download | drakx-backup-do-not-use-abe02f174aeb2745faffd0ce8426cc42bf52cd58.tar drakx-backup-do-not-use-abe02f174aeb2745faffd0ce8426cc42bf52cd58.tar.gz drakx-backup-do-not-use-abe02f174aeb2745faffd0ce8426cc42bf52cd58.tar.bz2 drakx-backup-do-not-use-abe02f174aeb2745faffd0ce8426cc42bf52cd58.tar.xz drakx-backup-do-not-use-abe02f174aeb2745faffd0ce8426cc42bf52cd58.zip | |
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"
Diffstat (limited to 'perl-install/c/stuff.xs.pl')
| -rwxr-xr-x | perl-install/c/stuff.xs.pl | 1 |
1 files changed, 1 insertions, 0 deletions
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); |