diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 18a58c054..ffd7626bf 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -403,8 +403,8 @@ sub getSerialModem { foreach my $port (map { "ttyS$_" } (0..7)) { next if $mouse->{device} =~ /$port/; my $device = "/dev/$port"; - next unless -e $device && hasModem($device); - $serialprobe{$device}->{device} = $device; + next if !-e $device || !hasModem($device); + $serialprobe{$device}{device} = $device; push @modems, $serialprobe{$device}; } my @devs = pcmcia_probe(); @@ -430,7 +430,7 @@ sub getSagem() { # generate from the following from eci driver sources: # perl -e 'while (<>) { print qq("$1$2",\n"$3$4",\n) if /\b([a-z\d]*)\s*([a-z\d]*)\s*([a-z\d]*)\s*([a-z\d]*)$/ }' <modems.db|sort|uniq sub getECI() { - my @ids =( + my @ids = ( "05090801", "05472131", "06590915", |