- 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, 2 deletions

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index ce7ceab7e..ca4bc3240 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -609,9 +609,8 @@ sub whatUsbport() {
     # This routine based on an ioctl request gives very clean and correct
     # manufacturer and model names, so that they are easily matched to the
     # printer entries in the Foomatic database
-    my $i; 
     my @res;
-    foreach $i (0..15) {
+    foreach my $i (0..15) {
 	my $port = "/dev/usb/lp$i";
 	my $realport = devices::make($port);
 	next if !$realport;