From 35d26e4034d10592401c25801290e2b7fb111198 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@gmail.com>
Date: Thu, 20 Oct 2016 15:18:25 +0100
Subject: Only mandatory arches are fatal

Currently any previous failures casues to force fail anything
succeeding later.
---
 lib/Iurt/Queue.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'lib/Iurt')

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) = @_;
 
-- 
cgit v1.2.1