aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-11-27 08:01:45 +0000
committerThierry Vignaud <tv@mageia.org>2012-11-27 08:01:45 +0000
commit8c7cc0abcc8fba7514428b124095a299861e3c77 (patch)
tree867e9d1d0a8743504c00b383c9df5c42c7af7b44
parent8f03e6a476f02c4b0517cf463d4e02b623f3b750 (diff)
downloadiurt-8c7cc0abcc8fba7514428b124095a299861e3c77.tar
iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.tar.gz
iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.tar.bz2
iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.tar.xz
iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.zip
make it clearer through adding missing ()
-rwxr-xr-xemi12
1 files 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();