diff options
Diffstat (limited to 'lib/Iurt/Queue.pm')
| -rw-r--r-- | lib/Iurt/Queue.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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/"); |