aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Iurt/Queue.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Iurt/Queue.pm b/lib/Iurt/Queue.pm
index f6907e6..3f552b9 100644
--- a/lib/Iurt/Queue.pm
+++ b/lib/Iurt/Queue.pm
@@ -12,6 +12,7 @@ use strict;
our @EXPORT = qw(
get_upload_tree_state
cleanup_failed_build
+ check_if_mandatory_arch_failed
);
sub apply_to_upload_tree {
@@ -52,7 +53,15 @@ sub apply_to_upload_tree {
}
}
}
-
+
+sub check_if_mandatory_arch_failed {
+ my ($done_dir, $prefix, $ent, $config) = @_;
+ my $mandatory_arch = get_mandatory_arch($config, $ent->{target});
+ foreach my $arch (@$mandatory_arch) {
+ return 1 if -f "${done_dir}/${prefix}_${arch}.fail";
+ }
+}
+
sub cleanup_failed_build {
my ($todo_dir, $done_dir, $fail_dir, $prefix, $ent, $arch, $config) = @_;