From 072852257446554e23aa1118a452d069ee2c166a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 23 Feb 2017 21:59:08 +0100 Subject: restrict fdisk -l output to usefull disks commit 325ab8add83e19c9dacd1b10ef6791441660f63a only handled "fdisk before/after", this trims the "fdisk" section too --- perl-install/any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 278abe10e..db190f19b 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1361,7 +1361,7 @@ sub report_bug { header("lspci"), detect_devices::stringlist(), header("pci_devices"), cat_("/proc/bus/pci/devices"), header("dmidecode"), arch() =~ /86/ ? `dmidecode` : (), - header("fdisk"), `fdisk -l`, + header("fdisk"), fdisk(), header("scsi"), cat_("/proc/scsi/scsi"), header("/sys/bus/scsi/devices"), -d '/sys/bus/scsi/devices' ? `ls -l /sys/bus/scsi/devices` : (), header("lsmod"), cat_("/proc/modules"), -- cgit v1.2.1