git-debrebase: print more why on Unprocessable commits

[dgit.git] / git-debrebase

diff --git a/git-debrebase b/git-debrebase
index b69450baaa4f952463e6bbcb925ad0be6a0788e1..3d837272ac1b4f2e4a3aab9cdaa0a19fc0de765a 100755 (executable)
--- 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;