From 3bf40616e233d127ecc0c1f90edd740d23a361ca Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 16 Dec 2000 16:13:34 +0000 Subject: use ldetect-lst --- perl-install/detect_devices.pm | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'perl-install/detect_devices.pm') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index f8cc294fb..802110185 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -179,19 +179,29 @@ sub pci_probe { my %l; @l{qw(vendor id subvendor subid type driver description)} = split "\t"; $l{$_} = hex $l{$_} foreach qw(vendor id subvendor subid); + $l{bus} = 'PCI'; \%l } c::pci_probe($probe_type); } -# pci_probing::main::probe with $probe_type is unsafe for pci! (bug in kernel&hardware) +sub usb_probe { + map { + my %l; + @l{qw(vendor id driver description)} = split "\t"; + $l{$_} = hex $l{$_} foreach qw(vendor id); + $l{bus} = 'USB'; + \%l + } c::usb_probe(); +} + +# pci_probe with $probe_type is unsafe for pci! (bug in kernel&hardware) # get_pcmcia_devices provides field "device", used in network.pm # => probeall with $probe_type is unsafe sub probeall { my ($probe_type) = @_; - require pci_probing::main; require sbus_probing::main; require modules; - pci_probe($probe_type), sbus_probing::main::probe(), modules::get_pcmcia_devices(); + pci_probe($probe_type), usb_probe(), sbus_probing::main::probe(), modules::get_pcmcia_devices(); } sub matching_desc { my ($regexp) = @_; -- cgit v1.2.1