From b5dacd1053b2a302c360ba6360c82ca8a60fc9cd Mon Sep 17 00:00:00 2001 From: Thomas Lamprecht Date: Mon, 19 Nov 2018 11:18:02 +0100 Subject: [PATCH] SysFSTools: lspci: fixup: improve naming and refactor a bit Signed-off-by: Thomas Lamprecht --- src/PVE/SysFSTools.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/PVE/SysFSTools.pm b/src/PVE/SysFSTools.pm index c16e7d3..e83d163 100644 --- a/src/PVE/SysFSTools.pm +++ b/src/PVE/SysFSTools.pm @@ -11,16 +11,17 @@ my $pcisysfs = "/sys/bus/pci"; my $pciregex = "([a-f0-9]{4}):([a-f0-9]{2}):([a-f0-9]{2})\.([a-f0-9])"; sub lspci { - my ($filter) = @_; + my ($id_filter) = @_; my $devices = {}; dir_glob_foreach("$pcisysfs/devices", $pciregex, sub { my (undef, undef, $bus, $slot, $function) = @_; + my $id = "$bus:$slot"; - return if defined($filter) && $id ne $filter; - my $res = { id => $id, function => $function}; - push @{$devices->{$id}}, $res; + return if defined($id_filter) && $id_filter ne $id; + + push @{$devices->{$id}}, { id => $id, function => $function }; }); # Entries should be sorted by functions. -- 2.39.2