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 ++
 perl-install/install/NEWS | 1 +
 2 files changed, 3 insertions(+)

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(),
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 3f4a4ac91..704d2cb49 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,7 @@
 - debug mode:
   o make it work with gdb-7.12
   o preset keyboard if DEBUG_INSTALL_LANG is set during build
+- list input & HID devices in report.bug (mga#20327)
 - recognize new kernel-4.8 drivers
 
 Version 17.72 - 25 February 2017
-- 
cgit v1.2.1