From da3fbca1326c9e013902929a679cffa528fa8d1e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 2 Mar 2017 10:24:03 +0100
Subject: list input & HID devices in report.bug (mga#20327)

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

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 75dd72204..018f7d9af 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1359,6 +1359,8 @@ sub report_bug {
 
     join '', map { chomp; "$_\n" }
       header("lspci"), detect_devices::stringlist(),
+      header("hid_devices"), (map { sprintf("%-16s: %s", $_->{driver} || "unknown", $_->{description}) } c::hid_probe()),
+      header("input devices"), cat_("/proc/bus/input/devices"),
       header("pci_devices"), cat_("/proc/bus/pci/devices"),
       header("dmidecode"), arch() =~ /86/ ? `dmidecode` : (),
       header("fdisk"), fdisk(),
-- 
cgit v1.2.1