starvation: Propagate starved job status into dependent jobs

If a build job is starved, then the same status

(No jobs are marked `starved' yet.)

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/Osstest/JobDB/Executive.pm b/Osstest/JobDB/Executive.pm
index 2e11c8f371dddf755328dcc190792e1a21f23149..be5588fce09980d1a0b1ffa247506e4cb48b5a47 100644 (file)
--- a/Osstest/JobDB/Executive.pm
+++ b/Osstest/JobDB/Executive.pm
@@ -380,6 +380,8 @@ END
             } else {
                 die "job $oflight.$ojob ($why) queued (we are $ourstatus)";
             }
+        } elsif ($jstatus eq 'starved') {
+            broken("job $oflight.$ojob ($why) $jstatus", $jstatus);
         } else {
             broken("job $oflight.$ojob ($why) $jstatus", 'blocked');
         }