remove unused parameter

2 files changed, 4 insertions, 4 deletions

diff --git a/lib/Iurt/Emi.pm b/lib/Iurt/Emi.pm
index f7a76fb..851307c 100644
--- a/lib/Iurt/Emi.pm
+++ b/lib/Iurt/Emi.pm
@@ -186,7 +186,7 @@ sub upload_prefix_in_media {
     unlink(@packages, @duplicate_packages);
 
     # unlink the sources rpm unless some non mandatory arch still need to be done
-    if (check_if_all_archs_processed($media, $prefix, $pkg_tree->{$prefix}, $config)) {
+    if (check_if_all_archs_processed($media, $pkg_tree->{$prefix}, $config)) {
 	foreach (@{$pkg_tree->{$prefix}{srpms}}) {
 	    plog('DEBUG', "unlink $todo$path/${prefix}_$_");
 	    unlink("$todo$path/${prefix}_$_");
diff --git a/lib/Iurt/Queue.pm b/lib/Iurt/Queue.pm
index 449ec36..7cbc991 100644
--- a/lib/Iurt/Queue.pm
+++ b/lib/Iurt/Queue.pm
@@ -56,7 +56,7 @@ sub apply_to_upload_tree {
 }
 
 sub check_if_mandatory_arch_failed {
-    my ($media, $prefix, $ent, $config) = @_;
+    my ($media, $ent, $config) = @_;
     my $mandatory_arch = get_mandatory_arch($config, $ent->{target});
     foreach my $arch (@$mandatory_arch) {
 	return 1 if $ent->{media}{$media}{failed_arch}{$arch};
@@ -64,7 +64,7 @@ sub check_if_mandatory_arch_failed {
 }
 
 sub check_if_all_archs_processed {
-    my ($media, $prefix, $ent, $config) = @_;
+    my ($media, $ent, $config) = @_;
     return 1 if $ent->{media}{$media}{done_arch}{noarch};
     return 1 if $ent->{media}{$media}{failed_arch}{noarch};
     my $arch_list = get_target_arch($config, $ent->{target});
@@ -112,7 +112,7 @@ sub cleanup_failed_build {
 	# keep rpms for other architectures
 	$ent->{rpms} = $kept_rpms;
 	# but delete src.rpm if we are now done
-	if (check_if_all_archs_processed($media, $prefix, $ent, $config)) {
+	if (check_if_all_archs_processed($media, $ent, $config)) {
 	    foreach my $srpm (@{$ent->{srpms}}) {
 		my $file = "$todo_dir/${prefix}_$srpm";
 		plog('DEBUG', "moving $file to $fail_dir/");