use detect_devices;
package detect_devices;
undef *pci_probe;
*pci_probe =3D sub {
    map {
	my %l;
	@l{qw(vendor id subvendor subid pci_bus pci_device pci_function type dri=
ver description)} =3D split "\t";
	$l{$_} =3D hex $l{$_} foreach qw(vendor id subvendor subid);
	$l{bus} =3D 'PCI';
	\%l
    } c::pci_probe(0);
};