From fb0e2307af8397ecf0d40a1c787ba9ebed826234 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 29 Jan 2003 08:17:53 +0000
Subject: (getModem) it always return an empy hash, thus confusing harddrake

---
 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 28898576c..8f982c94c 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -395,7 +395,7 @@ sub getSerialModem {
 
 sub getModem() {
     my @pci_modems = grep { $_->{driver} =~ /www.linmodems.org/ } probeall(0);
-    getSerialModem({}), @pci_modems;
+    grep { !is_empty_hash_ref($_) } getSerialModem({}), @pci_modems;
 }
 
 sub getSpeedtouch {
-- 
cgit v1.2.1