diff --git a/tools/builds.pm b/tools/builds.pm
index 761a10b4a6..c2dba671b2 100644
--- a/tools/builds.pm
+++ b/tools/builds.pm
@@ -344,4 +344,14 @@ sub stablebuilds {
     return @list;
 }
 
+sub allbuilds {
+    my @list;
+
+    for my $b (sort byname keys %builds) {
+        push @list, $b if ($builds{$b}{status} >= 1);
+    }
+
+    return @list;
+}
+
 1;