|
@@ -2016,7 +2016,11 @@ sub process {
|
|
|
|
|
|
# Flatten any parentheses
|
|
|
$value =~ s/\)\(/\) \(/g;
|
|
|
- while ($value !~ /(?:$Ident|-?$Constant)\s*$Compare\s*(?:$Ident|-?$Constant)/ && $value =~ s/\([^\(\)]*\)/1/) {
|
|
|
+ while ($value =~ s/\[[^\{\}]*\]/1/ ||
|
|
|
+ $value !~ /(?:$Ident|-?$Constant)\s*
|
|
|
+ $Compare\s*
|
|
|
+ (?:$Ident|-?$Constant)/x &&
|
|
|
+ $value =~ s/\([^\(\)]*\)/1/) {
|
|
|
}
|
|
|
|
|
|
if ($value =~ /^(?:$Ident|-?$Constant)$/) {
|