Commit 7b1bed5a authored by Frédéric Buclin's avatar Frédéric Buclin

Fix bustage in Perl 5.10 and 5.12

parent edd31154
...@@ -402,7 +402,7 @@ sub _handle_field_names { ...@@ -402,7 +402,7 @@ sub _handle_field_names {
# Generic field1,field2,field3:value1,value2 notation. # Generic field1,field2,field3:value1,value2 notation.
# We have to correctly ignore commas and colons in quotes. # 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); my @field_values = parse_line($symbol, 1, $or_operand);
next unless scalar @field_values == 2; next unless scalar @field_values == 2;
my @fields = parse_line(',', 1, $field_values[0]); my @fields = parse_line(',', 1, $field_values[0]);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment