Fix a bug with -fperl-logic and -fcorrect-logic

diff --git a/parser.c b/parser.c
index d64741543f25c6133d0f18c49c50b3b3b40c4986..f593d0e7c33c1fadc14a0962cd1a2acae8bedffe 100644 (file)
--- a/parser.c
+++ b/parser.c
@@ -906,6 +906,8 @@ static bool parser_sy_apply_operator(parser_t *parser, shunt *sy)
                             if (!out) break;
                             exprs[i] = out; out = NULL;
                             if (OPTS_FLAG(PERL_LOGIC)) {
+                                /* here we want to keep the right expressions' type */
+                                break;
                             }
                         }
                     }