summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 19:07:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 19:07:12 +0000
commit0bf0e10a086612a81e14f3fe2e9089dd61b0d74f (patch)
tree100bb87351746ca5a336df1fa8c7fc3f3e2378e1 /perl-install
parent91d8860c22341bf76dbb4c6f2199539e42db0a4d (diff)
downloaddrakx-backup-do-not-use-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.tar
drakx-backup-do-not-use-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.tar.gz
drakx-backup-do-not-use-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.tar.bz2
drakx-backup-do-not-use-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.tar.xz
drakx-backup-do-not-use-0bf0e10a086612a81e14f3fe2e9089dd61b0d74f.zip
perl_checker cleanups
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm6
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",