From 0bf0e10a086612a81e14f3fe2e9089dd61b0d74f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 22 Jan 2004 19:07:12 +0000
Subject: perl_checker cleanups

---
 perl-install/detect_devices.pm | 6 +++---
 1 file 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",
-- 
cgit v1.2.1