From ce2c3514092b01a2f6b3ab5364a335861f7d9d37 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 12 Mar 2003 14:51:45 +0000 Subject: fix titi sucks. --- perl-install/detect_devices.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index ca3a816a2..fbac2e4d9 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -408,7 +408,7 @@ sub getSerialModem { sub getModem() { my @pci_modems = grep { $_->{driver} =~ /www.linmodems.org/ } probeall(0); - grep { !is_empty_hash_ref($_) } getSerialModem({}), @pci_modems; + getSerialModem({}), @pci_modems; } sub getSpeedtouch { -- cgit v1.2.1