Do not mark an arch done until all files are copied

1 files changed, 9 insertions, 6 deletions

diff --git a/ulri b/ulri
index 744b04a..7ca84e6 100755
--- a/ulri
+++ b/ulri
@@ -376,7 +376,6 @@ foreach my $prefix (keys %pkg_tree) {
 			$result =~ /^$prefix/ and next;
 			
 			my $result_file = "$done_dir/${prefix}_$result";
-			my $done_file = "$done_dir/${prefix}_$arch.done";
 			
 			plog('OK', "build ok: $result");
 			if ($result =~ /\.$arch_check\.rpm$/) {
@@ -390,14 +389,18 @@ foreach my $prefix (keys %pkg_tree) {
 			    plog('ERROR', "copying $result from $host failed ($!)");
 			    $error = 1;
 			    last;
-			} elsif (move("$result_file.new", $result_file)) {
-			    if ($done) {
-				create_file($done_file, "$bot $host");
-				$success = 1;
-			    }
+			}
+		       	if (!move("$result_file.new", $result_file)) {
+			    $error = 1;
+			    last;
 			}
 		    }
 		    next if $error;
+
+		    if ($done) {
+			create_file("$done_dir/${prefix}_$arch.done", "$bot $host");
+			$success = 1;
+		    }
 		    
 		    if ($success) {
 			# Fetch build log and clean remote machine