X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=scanlib.pm;h=0f64165b5a0ab7b649867e1fcc6e5fd1a14e534e;hp=3dca704000de24c6dfc17caa78410b7cde07edaf;hb=e661212395590736b373289a5c4386b2e6785397;hpb=db772de0831e46e460b6446cfab4cc29eff83afa

diff --git a/scanlib.pm b/scanlib.pm
index 3dca704..0f64165 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -1,5 +1,5 @@
 #! /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>,
@@ -225,7 +225,7 @@ sub scanspooldir() {
 		}
 
 		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'})) {