From de19aec03758cf945cef63f5d697b0c226bbc85c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 7 Nov 2002 14:05:39 +0000
Subject: - harddrake : don't display modem when there're none - getModem() :  
      o simplify        o remove unused variables - getSerialModem() : indent

---
 perl-install/detect_devices.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index ed5501fdd..5ea0e8943 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -387,16 +387,13 @@ sub getSerialModem {
     #- add an alias for macserial on PPC
     modules::add_alias('serial', $serdev) if arch() =~ /ppc/ && $modem->{device};
     my @devs = pcmcia_probe();
-    foreach (@devs) {
-	$_->{type} =~ /serial/ and $modem->{device} = $_->{device};
-    }
+    foreach (@devs) { $_->{type} =~ /serial/ and $modem->{device} = $_->{device} }
+    grep { if_(defined $_->{device}, $_) } @devs;
 }
 
 sub getModem() {
     my @pci_modems = grep { $_->{driver} =~ /www.linmodems.org/ } probeall(0);
-    my $serial_modem = {};
-    getSerialModem($serial_modem);
-    $serial_modem, @pci_modems;
+    getSerialModem({}), @pci_modems;
 }
 
 sub getSpeedtouch {
-- 
cgit v1.2.1