git-debrebase: classify: provide Why for Unknown

[dgit.git] / git-debrebase

diff --git a/git-debrebase b/git-debrebase
index 5adbb8fecdfcc702b5822b1ea7e118942369bbd4..32737269a48120fa3f55720d8b778ca618ad3858 100755 (executable)
--- a/git-debrebase
+++ b/git-debrebase
@@ -317,7 +317,6 @@ sub any_fproblems () {
 #   Upstream
 #   AddPatches
 #   Mixed
 #   Upstream
 #   AddPatches
 #   Mixed

-#   Unknown

 #
 #   Pseudomerge
 #     has additional entres in classification result
 #
 #   Pseudomerge
 #     has additional entres in classification result


@@ -331,6 +330,10 @@ sub any_fproblems () {
 #   BreakwaterUpstreamMerge
 #     has additional entry in classification result
 #       OrigParents = [ subset of Parents ]  # singleton list
 #   BreakwaterUpstreamMerge
 #     has additional entry in classification result
 #       OrigParents = [ subset of Parents ]  # singleton list

+#
+#   Unknown
+#     has additional entry in classification result
+#       Why => "prose"

 
 sub parsecommit ($;$) {
     my ($objid, $p_ref) = @_;
 
 sub parsecommit ($;$) {
     my ($objid, $p_ref) = @_;


@@ -389,7 +392,7 @@ sub classify ($) {
     };
     my $unknown = sub {
        my ($why) = @_;
     };
     my $unknown = sub {
        my ($why) = @_;

-       $r = { %$r, Type => qw(Unknown) };
+       $r = { %$r, Type => qw(Unknown), Why => $why };

        printdebug " ** Unknown\n";
        return $r;
     };
        printdebug " ** Unknown\n";
        return $r;
     };