From 537fe7e25454c66f3195d5384975fc3b7cc1d37e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 1 Dec 2004 12:31:22 +0000 Subject: simplify: grep already done complete_usb_storage_info() --- 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 44f065ede..049f32f32 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -132,7 +132,7 @@ sub get_usb_storage_info_24 { } add2hash($choices[0], $usbs{$host}); } - complete_usb_storage_info(grep { exists $_->{usb_vendor} } @l); + complete_usb_storage_info(@l); @l; } -- cgit v1.2.1