Tidy code added in 4ba71d51f72efb2af8dc9748dd62219261f2e1fd.

diff --git a/toke.c b/toke.c
index 56e9620..658d163 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -4001,11 +4001,10 @@ Perl_yylex(pTHX)
                        do {
                            bool baduni = FALSE;
                            if (*d1 == 'C') {
-                               const char *d2 = d1;
-                               d2++;
-                               parse_unicode_opts( (const char **)&d2 )
-                                    == PL_unicode
-                                   || (baduni = TRUE);
+                               const char *d2 = d1 + 1;
+                               if (parse_unicode_opts((const char **)&d2)
+                                   != PL_unicode)
+                                   baduni = TRUE;
                            }
                            if (baduni || *d1 == 'M' || *d1 == 'm') {
                                const char * const m = d1;