git-debrebase: classificaton generates Changelog type

1 files changed, 7 insertions, 2 deletions

diff --git a/git-debrebase b/git-debrebase
index f16b9b5..a1d277e 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -264,6 +264,7 @@ sub calculate_committer_authline () {
 #
 # Types:
 #   Packaging
+#   Changelog
 #   Upstream
 #   AddPatches
 #   Mixed
@@ -337,7 +338,11 @@ sub classify ($) {
 	} elsif ($d & DS_DEB and !($d & ~DS_DEB)) {
 	    my ($ty,$dummy) = git_cat_file "$ph[0]:debian";
 	    if ($ty eq 'tree') {
-		return $classify->(qw(Packaging));
+		if ($d == D_DEB_CLOG) {
+		    return $classify->(qw(Changelog));
+		} else {
+		    return $classify->(qw(Packaging));
+		}
 	    } elsif ($ty eq 'missing') {
 		return $classify->(qw(BreakwaterStart));
 	    } else {
@@ -494,7 +499,7 @@ sub walk ($;$$) {
 	    $cur = $p0;
 	    $rewrite_from_here->();
 	    next;
-	} elsif ($ty eq 'Packaging') {
+	} elsif ($ty eq 'Packaging' or $ty eq 'Changelog') {
 	    push @brw_cl, $cl;
 	    $cur = $p0;
 	    next;