diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index c32435b7d..131f57cd8 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -323,16 +323,13 @@ sub pci_probe { sub usb_probe { -e "/proc/bus/usb/devices" or return (); - my @l = add_addons($usbtable_addons, map { + add_addons($usbtable_addons, map { my %l; @l{qw(vendor id media_type driver description)} = split "\t"; $l{$_} = hex $l{$_} foreach qw(vendor id); $l{bus} = 'USB'; \%l } c::usb_probe()); - use Data::Dumper; - log::l(Dumper \@l, backtrace()); - @l; } sub pcmcia_probe { |