- $current = OP if $val =~ /^$re_op$/io;
- $current = VALUE if $val =~ /^$re_value$/io;
- $current = KEYWORD if $val =~ /^$re_keyword$/io && ($want & KEYWORD);
- $current = AGGREG if $val =~ /^$re_aggreg$/io;
- $current = PAREN if $val =~ /^$re_paren$/io;
+ $current = OP if ($want & OP) && $val =~ /^$re_op$/io;
+ $current = VALUE if ($want & VALUE) && $val =~ /^$re_value$/io;
+ $current = KEYWORD if ($want & KEYWORD) && $val =~ /^$re_keyword$/io;
+ $current = AGGREG if ($want & AGGREG) && $val =~ /^$re_aggreg$/io;
+ $current = OPEN_PAREN if ($want & OPEN_PAREN) && $val =~ /^$re_open_paren$/io;
+ $current = CLOSE_PAREN if ($want & CLOSE_PAREN) && $val =~ /^$re_close_paren$/io;