- do not use "foreach $var (...) {...}" use "foreach my $var (...) {...}" instead

  (only pb are functions called in {...} that could use $var, none found except in commands.pm)
- various small syntax enhancements to please perl_checker

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 8deb60cff..698d67c68 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -171,7 +171,7 @@ sub updateScannerDBfromSane {
     opendir YREP, $_sanesrcdir or die "can't open $_sanesrcdir: $!";
     @files = grep /.*desc$/, readdir YREP;
     closedir YREP;
-    foreach $i (@files) {
+    foreach my $i (@files) {
 	my $F = common::openFileMaybeCompressed("$_sanesrcdir/$i");
 	print Y "\n# from $i";
 	my ($lineno, $cmd, $val) = 0;