diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-12-31 18:31:43 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-12-31 18:32:20 +0100 |
| commit | 6b0406789bfe04592c44db688fb15c3f3a7816ad (patch) | |
| tree | b0fe871d28f459578d30da426c5280175e19e7e6 | |
| parent | e6f28ac06e9865199a638d3df148e6c8d715aca4 (diff) | |
| download | iurt-6b0406789bfe04592c44db688fb15c3f3a7816ad.tar iurt-6b0406789bfe04592c44db688fb15c3f3a7816ad.tar.gz iurt-6b0406789bfe04592c44db688fb15c3f3a7816ad.tar.bz2 iurt-6b0406789bfe04592c44db688fb15c3f3a7816ad.tar.xz iurt-6b0406789bfe04592c44db688fb15c3f3a7816ad.zip | |
perl_checker: kill useless arg
| -rw-r--r-- | lib/Iurt/Emi.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Iurt/Emi.pm b/lib/Iurt/Emi.pm index 3b7ce5a..6210a89 100644 --- a/lib/Iurt/Emi.pm +++ b/lib/Iurt/Emi.pm @@ -107,7 +107,7 @@ sub find_prefixes_ready_to_upload { } sub generate_upload_command { - my ($config, $prefix, $media, $target, $user, $packages, $finish, $youri_file) = @_; + my ($prefix, $media, $target, $user, $packages, $finish, $youri_file) = @_; # Most of this function should be in the config... my $base_command = "/usr/bin/perl -I/usr/share/mga-youri-submit/lib /usr/share/mga-youri-submit/bin/youri-submit --config /etc/youri/submit-upload.conf"; my $all_posts = `$base_command --list posts $target`; @@ -155,7 +155,7 @@ sub upload_prefix_in_media { $user ||= $config->{upload_user}; - my $command = generate_upload_command($config, $prefix, $media, $target, $user, \@packages, $o_finish, "$done$path/$youri_file"); + my $command = generate_upload_command($prefix, $media, $target, $user, \@packages, $o_finish, "$done$path/$youri_file"); plog('DEBUG', "running $command"); if (!system($command)) { plog('INFO', "upload succeeded"); |