diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-03-06 14:21:08 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-03-06 14:21:08 +0000 |
commit | a34cb7b14b4b32088094a9597e514e24386138f9 (patch) | |
tree | 0e24b64b96ad81f3c2bf02308f42f15dcf4b9d7a /perl-install/scanner.pm | |
parent | 08bae1aebcc97be690e680e3cee18b008c041f83 (diff) | |
download | drakx-a34cb7b14b4b32088094a9597e514e24386138f9.tar drakx-a34cb7b14b4b32088094a9597e514e24386138f9.tar.gz drakx-a34cb7b14b4b32088094a9597e514e24386138f9.tar.bz2 drakx-a34cb7b14b4b32088094a9597e514e24386138f9.tar.xz drakx-a34cb7b14b4b32088094a9597e514e24386138f9.zip |
perl_checker fixes
Diffstat (limited to 'perl-install/scanner.pm')
-rwxr-xr-x | perl-install/scanner.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index da16a0aec..3c8f60a8c 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -150,7 +150,7 @@ sub detect { } # The Alcatel Speed Touch internet scanner is not supported by # SANE - next if $description =~ /Alcatel.*Speed.*Touch|Camera/i ; + next if $description =~ /Alcatel.*Speed.*Touch|Camera/i; # Extract port $line =~ /\s+(\S+)\s*$/; $port = $1; @@ -194,7 +194,7 @@ sub detect { my $searchport2 = handle_configs::searchstr($d->{port2}); foreach my $c (@configured) { if ($c->{port} =~ /$searchport1$/ || - ($searchport2 && $c->{port} =~ /$searchport2$/)) { + $searchport2 && $c->{port} =~ /$searchport2$/) { $d->{configured} = 1; last; } |