From c6c6d03d5abccb0b5041d0b38abeb0d66b66be23 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 21 Jul 2009 19:58:57 +0200
Subject: [PATCH 1/1] skip fields which are not needed to be matched

---
 Debbugs/Bugs.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Debbugs/Bugs.pm b/Debbugs/Bugs.pm
index a682358..eff1593 100644
--- a/Debbugs/Bugs.pm
+++ b/Debbugs/Bugs.pm
@@ -777,7 +777,11 @@ sub __bug_matches {
     my ($hash, $status) = @_;
     foreach my $key( keys( %$hash ) ) {
         my $value = $hash->{$key};
+	next unless exists $field_match{$key};
 	my $sub = $field_match{$key};
+	if (not defined $sub) {
+	    die "No defined subroutine for key: $key";
+	}
 	return 1 if ($sub->($key, $value, $status));
     }
     return 0;
-- 
2.39.2