From a34cb7b14b4b32088094a9597e514e24386138f9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 6 Mar 2003 14:21:08 +0000
Subject: perl_checker fixes

---
 perl-install/scanner.pm | 4 ++--
 1 file 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;
 		}
-- 
cgit v1.2.1