From 2db19d156087ccce3037b2bd2da1042280e17904 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 13:40:09 +0000
Subject: - 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

---
 perl-install/detect_devices.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

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;
-- 
cgit v1.2.1