From 8459895fdde863f03050c721d0001bef604d95fe Mon Sep 17 00:00:00 2001
From: Wolfgang Bumiller <blub@speed.at>
Date: Sat, 22 Dec 2012 16:25:19 +0100
Subject: [PATCH] Fix a bug with -fperl-logic and -fcorrect-logic

---
 parser.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/parser.c b/parser.c
index d647415..f593d0e 100644
--- 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;
                             }
                         }
                     }
-- 
2.39.2