This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix various compiler warnings from XS code
[perl5.git] / cpan / Unicode-Normalize / Normalize.xs
index f4bbca7..5f5357c 100644 (file)
@@ -380,8 +380,8 @@ U8* pv_utf8_compose(U8* s, STRLEN slen, U8* d, STRLEN dlen, bool iscontig)
            bool composed;
 
            /* blocked */
-           if (iscontig && cc_pos || /* discontiguous combination */
-                curCC != 0 && preCC == curCC || /* blocked by same CC */
+           if ((iscontig && cc_pos) || /* discontiguous combination */
+                (curCC != 0 && preCC == curCC) || /* blocked by same CC */
                 preCC > curCC) /* blocked by higher CC: revised D2 */
                composed = FALSE;