From 6aaf7d1e438b9820164b94d3b548a858bb6abf68 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 27 Mar 2012 17:15:23 +0000
Subject: perl_checker cleanups

---
 urpme | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'urpme')

diff --git a/urpme b/urpme
index 95485e39..e7f4bb9e 100755
--- a/urpme
+++ b/urpme
@@ -163,10 +163,10 @@ if ($urpm->{options}{auto} || $env) {
     $force || message_input_(P("Remove %d package?", "Remove %d packages?", scalar(@toremove), scalar(@toremove)) . N(" (y/N) "), boolean => 1) =~ /[$yesexpr]/ or exit 0;
 }
 
-print $test ? 
+print($test ? 
   #- Warning : the following message is parsed in urpm::parallel_*
   N("testing removal of %s", join(' ', sort @toremove)) :
-  N("removing %s", join(' ', sort @toremove)), "\n";
+  N("removing %s", join(' ', sort @toremove)), "\n");
 
 exit 0 if $env;
 
-- 
cgit v1.2.1