diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 19:07:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 19:07:12 +0000 |
| commit | 0bf0e10a086612a81e14f3fe2e9089dd61b0d74f (patch) | |
| tree | 100bb87351746ca5a336df1fa8c7fc3f3e2378e1 /perl-install | |
| parent | 91d8860c22341bf76dbb4c6f2199539e42db0a4d (diff) | |
| download | drakx-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.tar drakx-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.tar.gz drakx-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.tar.bz2 drakx-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.tar.xz drakx-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.zip | |
perl_checker cleanups
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", |