summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-06 14:21:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-06 14:21:08 +0000
commita34cb7b14b4b32088094a9597e514e24386138f9 (patch)
tree0e24b64b96ad81f3c2bf02308f42f15dcf4b9d7a /perl-install
parent08bae1aebcc97be690e680e3cee18b008c041f83 (diff)
downloaddrakx-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')
-rwxr-xr-xperl-install/scanner.pm4
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;
}