From 8563788a3f0893b0446bda6a0ac0af8c89f2ef58 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 6 Feb 2003 09:55:36 +0000
Subject: perl_checker fixes

---
 perl-install/scanner.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/scanner.pm')

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index e5d8bb48d..3fe56b01f 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -32,7 +32,7 @@ use handle_configs;
 
 my $_sanedir = "$::prefix/etc/sane.d";
 my $_scannerDBdir = "$::prefix$ENV{SHARE_PATH}/ldetect-lst";
-$scannerDB = readScannerDB("$_scannerDBdir/ScannerDB");
+my $scannerDB = readScannerDB("$_scannerDBdir/ScannerDB");
 
 sub confScanner {
     my ($model, $port) = @_;
@@ -41,8 +41,8 @@ sub confScanner {
     #print "file:[$a]\t[$model]\t[$port]\n| ", (join "\n| ", @{$scannerDB->{$model}{lines}}),"\n";
     my @driverconf = cat_("$_sanedir/$a.conf");
     my @configlines = @{$scannerDB->{$model}{lines}};
-    (s/\$DEVICE/$port/) foreach @configlines;
-    (handle_configs::set_directive(\@driverconf, $_)) foreach @configlines;
+    s/\$DEVICE/$port/ foreach @configlines;
+    handle_configs::set_directive(\@driverconf, $_) foreach @configlines;
     output("$_sanedir/$a.conf", @driverconf);
     add2dll($a);
 }
@@ -58,7 +58,7 @@ sub detect {
     my ($i, @res) = 0;
     foreach (grep { $_->{driver} =~ /scanner/ } detect_devices::usb_probe()) {
 	use Data::Dumper;
-	print Dumper ($_);
+	print Dumper($_);
 	#my ($manufacturer, $model) = split '\|', $_->{description};
 	#$_->{description} =~ s/Hewlett[-\s_]Packard/HP/;
 	$_->{description} =~ s/Seiko\s+Epson/Epson/i;
-- 
cgit v1.2.1