From 7a0c1e3f8c734a916b2ac8db5c32791e8fe02d33 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Fri, 24 Jan 2003 19:39:43 +0000
Subject: get back serial modem detection

---
 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 fe5f484cd..5487a7ca2 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -390,7 +390,7 @@ sub getSerialModem {
     modules::add_alias('serial', $serdev) if arch() =~ /ppc/ && $modem->{device};
     my @devs = pcmcia_probe();
     foreach (@devs) { $_->{type} =~ /serial/ and $modem->{device} = $_->{device} }
-    grep { if_(defined $_->{device}, $_) } @devs;
+    $modem;
 }
 
 sub getModem() {
-- 
cgit v1.2.1