From ce2c3514092b01a2f6b3ab5364a335861f7d9d37 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
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/detect_devices.pm')

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