diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-11-27 08:01:45 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-11-27 08:01:45 +0000 |
commit | 8c7cc0abcc8fba7514428b124095a299861e3c77 (patch) | |
tree | 867e9d1d0a8743504c00b383c9df5c42c7af7b44 /emi | |
parent | 8f03e6a476f02c4b0517cf463d4e02b623f3b750 (diff) | |
download | iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.tar iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.tar.gz iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.tar.bz2 iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.tar.xz iurt-8c7cc0abcc8fba7514428b124095a299861e3c77.zip |
make it clearer through adding missing ()
Diffstat (limited to 'emi')
-rwxr-xr-x | emi | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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(); |