set field_match to be a state variable

diff --git a/Debbugs/Bugs.pm b/Debbugs/Bugs.pm
index 32bb390ddf47109f8b1c1de6d7ee52e009fa66b1..93967e2cb2f8b885a022cfa9cfe2e5cf7eb3d89f 100644 (file)
--- a/Debbugs/Bugs.pm
+++ b/Debbugs/Bugs.pm
@@ -830,7 +830,7 @@ sub __handle_pkg_src_and_maint{
      return grep {$packages{$_} >= $package_keys} keys %packages;
 }
 
-state %field_match = (
+state $field_match = {
     'subject' => \&__contains_field_match,
     'tags' => sub {
         my ($field, $values, $status) = @_; 
@@ -846,14 +846,14 @@ state %field_match = (
     'originator' => \&__contains_field_match,
     'forwarded' => \&__contains_field_match,
     'owner' => \&__contains_field_match,
-);
+};
 
 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};
+       next unless exists $field_match->{$key};
+       my $sub = $field_match->{$key};
        if (not defined $sub) {
            die "No defined subroutine for key: $key";
        }