diff options
author | Scott James Remnant <keybuk@debian.org> | 2004-05-06 19:56:45 +0000 |
---|---|---|
committer | Scott James Remnant <keybuk@debian.org> | 2004-05-06 19:56:45 +0000 |
commit | 7a6decdee6709a76826b1b2009ab3328f534586d (patch) | |
tree | b85db2e0e35db6d7dac0edb0f2d739688bd47457 /scripts | |
parent | c863af8eff4232682603c1780a6625cc1df694f7 (diff) | |
download | dpkg-7a6decdee6709a76826b1b2009ab3328f534586d.tar.gz |
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.
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/controllib.pl | 4 | ||||
-rwxr-xr-x | scripts/dpkg-scanpackages.pl | 4 |
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); |