#! /usr/bin/perl
-# vim: ts=4 sw=4 nowrap
+# vim: ts=8 sw=8 nowrap
#
# General functions for scanning the BTS-database.
# Based on bugscan, written by Richard Braakman <dark@debian.org>,
}
for my $keyword qw(pending patch help moreinfo unreproducible security upstream sarge-ignore etch-ignore) {
- $bi->{$keyword} = ($bug->{'keywords'} =~ /\b$keyword\b/) ? 1 : 0;
+ $bi->{$keyword} = grep(/^$keyword$/, @tags);
}
if (length($bug->{'mergedwith'})) {