Record built packages to allow cleanup when only one arch fails

1 files changed, 3 insertions, 1 deletions

diff --git a/ulri b/ulri
index b24a7f8..fef4f06 100755
--- a/ulri
+++ b/ulri
@@ -394,6 +394,8 @@ foreach my $prefix (keys %pkg_tree) {
 			    $error = 1;
 			    last;
 			}
+			# Add the package to the list of built ones, in case we fail another arch and need to cleanup
+			push @{$ent->{rpms}}, $result_file;
 		    }
 		    next if $error;
 
@@ -466,7 +468,7 @@ foreach my $prefix (keys %pkg_tree) {
 		$compildone->{$prefix}{$media}{$arch} = 0;
 	    }
 	    
-	    # Move already built packages to failures if one arch failed
+	    # Move built packages to failures if one arch failed
 	    foreach my $rpm (@{$ent->{rpms}}) {
 		my $file = "$done_dir/${prefix}_$rpm";
 		plog('DEBUG', "moving built rpm $file to $fail_dir/${prefix}_$rpm");