From 6b0406789bfe04592c44db688fb15c3f3a7816ad Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 31 Dec 2016 18:31:43 +0100
Subject: perl_checker: kill useless arg

---
 lib/Iurt/Emi.pm | 4 ++--
 1 file 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");
-- 
cgit v1.2.1