diff options
| -rw-r--r-- | perl-install/detect_devices.pm | 9 |
1 files changed, 3 insertions, 6 deletions
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 { |