Fail build which timeout even is machine is unreachable

1 files changed, 3 insertions, 3 deletions

diff --git a/ulri b/ulri
index 532cb36..ee08226 100755
--- a/ulri
+++ b/ulri
@@ -276,12 +276,12 @@ foreach my $prefix (keys %pkg_tree) {
 	    my $status_file = "$prefix_dir/log/status.log";
 
 	    plog('INFO', "check status: $host/$arch ($bot [$pid])");
+	    my $timeout = (time()-$time) > $config->{faildelay};
 	    my $status = sout($remote, "cat $status_file");
 	    if ($? == 255) {
 		plog('WARN', "failed to get status for $host/$arch");
-		# TODO Check for timeout, else we may have packages stuck forever
-		# when losing a machine.
-	        next bot;
+		# If we are already out of time, we should fail anyway
+	        next bot unless $timeout;
 	    }
 
 	    my $proc_state;