diff --git a/regcomp.c b/regcomp.c
index e5e51022bf2f..8b32d6136c53 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1833,7 +1833,7 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
          * properly currently.
          *
          */
-        while ((OP(first) == OPEN && (sawopen = 1)) ||
+        while ((OP(first) == OPEN && ((sawopen = 1)) ) ||
                /* An OR of *one* alternative - should not happen now. */
             (OP(first) == BRANCH && OP(first_next) != BRANCH) ||
             /* for now we can't handle lookbehind IFMATCH*/