From a46b2c4c87911f151d53e9ecb1cd145da3f359cf Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 21 Mar 2001 18:39:09 +0000
Subject: added pci id reference.

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 79b9c92ad..f2d1dacd3 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -179,7 +179,7 @@ sub pci_probe {
     my ($probe_type) = @_;
     map {
 	my %l;
-	@l{qw(vendor id subvendor subid type driver description)} = split "\t";
+	@l{qw(vendor id subvendor subid pci_bus pci_device pci_function type driver description)} = split "\t";
 	$l{$_} = hex $l{$_} foreach qw(vendor id subvendor subid);
 	$l{bus} = 'PCI';
 	\%l
-- 
cgit v1.2.1