From 8c7cc0abcc8fba7514428b124095a299861e3c77 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 27 Nov 2012 08:01:45 +0000
Subject: make it clearer through adding missing ()

---
 emi | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/emi b/emi
index 749c474..c3868e5 100755
--- a/emi
+++ b/emi
@@ -270,9 +270,9 @@ sub upload_prefix_in_section {
 	plog('ERROR', "upload failed ($!), rejecting files in $reject/$path/");
 	make_path("$reject/$path");
 	foreach my $rpm (@{$pkg_tree{$prefix}{section}{$section}{rpms}}) {
-	    link "$done/$path/${prefix}_$rpm", "$reject/$path/${prefix}_$rpm" or plog('ERROR', "ERROR: link of $rpm failed ($!)");
+	    link("$done/$path/${prefix}_$rpm", "$reject/$path/${prefix}_$rpm") or plog('ERROR', "ERROR: link of $rpm failed ($!)");
 	}
-	link "$done/$path/$prefix.youri", "$reject/$path/$prefix.youri";
+	link("$done/$path/$prefix.youri", "$reject/$path/$prefix.youri");
 	
 	my ($user) = $prefix =~ /\d{14}\.(\w+)\.\w+\.\d+/;
 	if ($user) {
@@ -289,16 +289,16 @@ sub upload_prefix_in_section {
     }
 
     # delete the files which should have heen either put in queue or rejected
-    unlink $_ foreach @packages;
+    unlink($_) foreach @packages;
     
     # keep the log file for debugging
-    # unlink "$done/$path/$prefix.youri";
+    # unlink("$done/$path/$prefix.youri");
     
     # unlink the sources rpm, other arch will be able to grab it into
     # the repository
     foreach (@{$pkg_tree{$prefix}{todo}}) {
 	plog('DEBUG', "unlink $todo/$path/${prefix}_$_");
-	unlink "$todo/$path/${prefix}_$_";
+	unlink("$todo/$path/${prefix}_$_");
     }
 }
 
@@ -326,6 +326,6 @@ foreach my $target (keys %targets) {
     }
 }
 
-unlink $pidfile;
+unlink($pidfile);
 exit();
 
-- 
cgit v1.2.1