From 78e8097c578fb334c7440a5459fdb7aecc827feb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Nov 2002 17:36:32 +0000
Subject: - add/remove spaces to make perl_checker happy - remove redundant
 parentheses - add some parentheses for clarity

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

(limited to 'perl-install/printer/cups.pm')

diff --git a/perl-install/printer/cups.pm b/perl-install/printer/cups.pm
index 1de54edf2..c932f1f81 100644
--- a/perl-install/printer/cups.pm
+++ b/perl-install/printer/cups.pm
@@ -16,8 +16,8 @@ sub get_remote_queues {
     while ($line = <F>) {
 	if ($line =~ m/^\s*device\s+for\s+([^:\s]+):\s*(\S+)\s*$/) {
 	    my $queuename = $1;
-	    if (($2 =~ m!^ipp://([^/:]+)[:/]!) &&
-		(!$printer->{configured}{$queuename})) {
+	    if ($2 =~ m!^ipp://([^/:]+)[:/]! &&
+		!$printer->{configured}{$queuename}) {
 		my $server = $1;
 		push (@printerlist, "$queuename|$server");
 	    }
-- 
cgit v1.2.1