Fix bustage in Perl 5.10 and 5.12

https://bugzilla.mozilla.org/show_bug.cgi?id=76498

diff --git a/Bugzilla/Search/Quicksearch.pm b/Bugzilla/Search/Quicksearch.pm
index 3448b0bdb19013245cc8115d11bc67581273e9fb..ced19b4c3de92bca967d4462778218a3a7f6f770 100644 (file)
--- a/Bugzilla/Search/Quicksearch.pm
+++ b/Bugzilla/Search/Quicksearch.pm
@@ -402,7 +402,7 @@ sub _handle_field_names {
 
     # Generic field1,field2,field3:value1,value2 notation.
     # We have to correctly ignore commas and colons in quotes.
-    foreach my $symbol (keys OPERATOR_SYMBOLS) {
+    foreach my $symbol (keys %{ OPERATOR_SYMBOLS() }) {
         my @field_values = parse_line($symbol, 1, $or_operand);
         next unless scalar @field_values == 2;
         my @fields = parse_line(',', 1, $field_values[0]);