From b5ec0d3e9656b2126160c19e4998214691303a9b Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Mon, 11 Jun 2012 11:37:56 +0100
Subject: [PATCH] Display reasons for failures when program finishes.

---
 mass-rebuild.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/mass-rebuild.pl b/mass-rebuild.pl
index a3e628d..59ca070 100755
--- a/mass-rebuild.pl
+++ b/mass-rebuild.pl
@@ -303,6 +303,13 @@ foreach $pkg (@build_order) {
     $package_notes{$pkg}{build_done} = 1;
 }
 
+# Finish off by printing the package notes for builds that failed.
+foreach $pkg (@build_order) {
+    if (exists $package_notes{$pkg}{error}) {
+        print "$pkg failed, reason: ", $package_notes{$pkg}{error}, "\n";
+    }
+}
+
 sub do_build_and_wait
 {
     my $pkg = shift;
-- 
1.8.3.1