Couple of patches from Tollef ... Correct case of Origin and Bugs fields

in dpkg-scanpackages output and fix the unknown() function of controllib.pl
to output the correct field name.

2 files changed, 6 insertions, 2 deletions

diff --git a/scripts/controllib.pl b/scripts/controllib.pl
index d5c11b752..a0a1ae393 100755
--- a/scripts/controllib.pl
+++ b/scripts/controllib.pl
@@ -302,7 +302,9 @@ sub parsecdata {
 }
 
 sub unknown {
-    &warn("unknown information field " . $fi{"o:$_"} . " in input data in $_[0]");
+    my $field = $_;
+    my $key = (grep { /^o:C\d+ $field/ } keys %fi)[0];
+    &warn("unknown information field " . $f{"$key"} . " in input data in $_[0]");
 }
 
 sub syntax {
diff --git a/scripts/dpkg-scanpackages.pl b/scripts/dpkg-scanpackages.pl
index e5387355e..5c8e00294 100755
--- a/scripts/dpkg-scanpackages.pl
+++ b/scripts/dpkg-scanpackages.pl
@@ -26,7 +26,9 @@ $version= '1.2.6'; # This line modified by Makefile
             'Size',
 	    'Installed-Size',
             'MD5sum',
-            'Description');
+            'Description',
+            'Origin',
+            'Bugs');
 
 $written=0;
 $i=100; grep($pri{$_}=$i--,@fieldpri);