git-debrebase: print more why on Unprocessable commits

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 4 insertions, 1 deletions

diff --git a/git-debrebase b/git-debrebase
index b69450b..3d83727 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -598,13 +598,16 @@ sub walk ($;$$) {
 
     my $bomb = sub { # usage: return $bomb->();
 	print $report " Unprocessable" if $report;
+	print $report " ($cl->{Why})" if $report && defined $cl->{Why};
 	$prprdelim->();
 	if ($nogenerate) {
 	    return (undef,undef);
 	}
 	die "commit $cur: Cannot cope with this commit (d.".
 	    (join ' ', map { sprintf "%#x", $_->{Differs} }
-	     @{ $cl->{Parents} }). ")";
+	     @{ $cl->{Parents} }).
+	    (defined $cl->{Why} ? "; $cl->{Why}": '').
+		 ")";
     };
 
     my $build;