From 922d528b7664b8b885f596055bd25232f3df32a7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 16:49:00 +0000
Subject: remove unneeded parentheses on the right side of infix
 if/foreach/unless

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

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

diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 32edbb867..394c105e5 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -2959,7 +2959,7 @@ sub wizard_close {
     $::Wizard_no_previous = 1;
     $::Wizard_no_cancel = 1;
     $::Wizard_finished = 1;
-    wizard_congratulations($in) if ($mode == 1);
+    wizard_congratulations($in) if $mode == 1;
     undef $::isWizard;
     $::WizardWindow->destroy if defined $::WizardWindow;
     undef $::WizardWindow;
@@ -3364,7 +3364,7 @@ sub main {
 			$queue = $printer->{QUEUE};
 		    }
 		};
-		wizard_close($in, 0) if ($@ =~ /wizcancel/);
+		wizard_close($in, 0) if $@ =~ /wizcancel/;
 	    } else {
 		$::expert or $printer->{TYPE} = "LOCAL";
 		wizard_welcome($printer, $in, $upNetwork) or next;
-- 
cgit v1.2.1