From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 26 Jul 2009 10:01:15 +0000 (+0100)
Subject: Tidy code added in 4ba71d51f72efb2af8dc9748dd62219261f2e1fd.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd0ab00df494c0f393ee5623b3a949ae9e0ae15e;p=p5sagit%2Fp5-mst-13.2.git

Tidy code added in 4ba71d51f72efb2af8dc9748dd62219261f2e1fd.
---

diff --git a/toke.c b/toke.c
index 56e9620..658d163 100644
--- 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;