1 #! /bin/sh /usr/share/dpatch/dpatch-run
2 ## 800-implement-tag-override.dpatch by Eero Häkkinen <eero.hakkinen@nokia.com>
4 ## All lines beginning with `## DP:' are a description of the patch.
5 ## DP: Add support for overriding tag properties.
8 diff -urNad lintian-1.23.8~/lib/Tags.pm lintian-1.23.8/lib/Tags.pm
9 --- lintian-1.23.8~/lib/Tags.pm 2006-07-19 12:21:09.000000000 +0000
10 +++ lintian-1.23.8/lib/Tags.pm 2006-07-19 14:18:46.000000000 +0000
12 # - ref: Any references
13 # - experimental: experimental status (possibly undef)
17 # Statistics per file. Key is the filename, value another hash with the
23 + foreach my $o (@tag_overrides) {
24 + next unless $newtag->{tag} =~ /^$o->{tag}$/s;
25 + while ( my ($field,$val) = each %$o ) {
26 + next if $field eq 'tag';
27 + $newtag->{$field} = $val;
32 $newtag->{type} = $sev_to_type[$newtag->{severity}]
33 unless $newtag->{type};
38 +sub add_tag_override {
39 + push @tag_overrides, shift;
43 # Add another file, will fail if there is already stored info about
50 + undef @tag_overrides;