From 70f2bded3e847293aa07b06987ec3c87c7a9d58f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 11 Jul 2002 16:43:27 +0000 Subject: remove debugging info that slipped in --- perl-install/detect_devices.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install/detect_devices.pm') 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 { -- cgit v1.2.1