summaryrefslogtreecommitdiffstats
path: root/perl-install/scanner.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 13:40:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 13:40:09 +0000
commit2db19d156087ccce3037b2bd2da1042280e17904 (patch)
tree0acaff93899445e13d78facbd0aa0da28558a04f /perl-install/scanner.pm
parentc1e398be894ecce6394bd76c99b76c022979ac62 (diff)
downloaddrakx-backup-do-not-use-2db19d156087ccce3037b2bd2da1042280e17904.tar
drakx-backup-do-not-use-2db19d156087ccce3037b2bd2da1042280e17904.tar.gz
drakx-backup-do-not-use-2db19d156087ccce3037b2bd2da1042280e17904.tar.bz2
drakx-backup-do-not-use-2db19d156087ccce3037b2bd2da1042280e17904.tar.xz
drakx-backup-do-not-use-2db19d156087ccce3037b2bd2da1042280e17904.zip
- 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
Diffstat (limited to 'perl-install/scanner.pm')
-rwxr-xr-xperl-install/scanner.pm2
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;