Subject: [PATCH 08/25] Accept "changes" as a supported type for collection and check scripts

From: Adam D. Barratt <[email-masked]>
Date: Wed, 6 Jan 2010 09:53:13 +0000

---
 frontend/lintian |   12 ++++++++----
 1 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/frontend/lintian b/frontend/lintian
index e0e8bdb..23eaaa4 100755
--- a/frontend/lintian
+++ b/frontend/lintian
@@ -1064,7 +1064,7 @@ for my $f (readdir COLLDIR) {
 
     set_value($f, $p,'type',$secs[0],1);
     # convert Type:
-    my ($b,$s,$u) = ( "", "", "" );;
+    my ($b,$s,$u,$c) = ( "", "", "", "" );;
     for (split(/\s*,\s*/o,$p->{'type'})) {
 	if ($_ eq 'binary') {
 	    $b = 'b';
@@ -1072,11 +1072,13 @@ for my $f (readdir COLLDIR) {
 	    $s = 's';
 	} elsif ($_ eq 'udeb') {
 	    $u = 'u';
+	} elsif ($_ eq 'changes') {
+	    $c = 'c';
 	} else {
 	    fail("unknown type $_ specified in description file $f");
 	}
     }
-    $p->{'type'} = "$s$b$u";
+    $p->{'type'} = "$s$b$u$c";
 
     set_value($f,$p,'order',$secs[0],1);
     set_value($f,$p,'version',$secs[0],1);
@@ -1129,7 +1131,7 @@ for my $f (readdir CHECKDIR) {
 
     set_value($f,$p,'type',$secs[0],1);
     # convert Type:
-    my ($b,$s,$u) = ( "", "", "" );
+    my ($b,$s,$u,$c) = ( "", "", "", "" );
     for (split(/\s*,\s*/o,$p->{'type'})) {
 	if ($_ eq 'binary') {
 	    $b = 'b';
@@ -1137,11 +1139,13 @@ for my $f (readdir CHECKDIR) {
 	    $s = 's';
 	} elsif ($_ eq 'udeb') {
 	    $u = 'u';
+	} elsif ($_ eq 'changes') {
+	    $c = 'c';
 	} else {
 	    fail("unknown type $_ specified in description file $f");
 	}
     }
-    $p->{'type'} = "$s$b$u";
+    $p->{'type'} = "$s$b$u$c";
 
     set_value($f,$p,'abbrev',$secs[0],1);
 
-- 
1.6.6