From 3021e910718c4702abe831c7aa53e8a7bf8b135f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 16:47:00 +0000
Subject: please perl_checker: - local'ize $_ before doing while (<...>) - use
 "foreach" instead of "for" - remove unneeded parentheses on the right side of
 infix if/foreach/unless

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index f1543f46c..2c8c71f3d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -617,8 +617,8 @@ sub whatUsbport() {
     foreach $i (0..15) {
 	my $port = "/dev/usb/lp$i";
 	my $realport = devices::make($port);
-	next if (!$realport);
-	next if (! -r $realport);
+	next if !$realport;
+	next if ! -r $realport;
 	open PORT, $realport or do next;
 	my $idstr = "";
 	# Calculation of IOCTL function 0x84005001 (to get device ID
-- 
cgit v1.2.1