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;
while (d < PL_bufend && isSPACE(*d))
d++; /* no comments skipped here, or s### is misparsed */
+ /* Check for keywords */
+ tmp = keyword(PL_tokenbuf, len, 0);
+
/* Is this a label? */
if (!tmp && PL_expect == XSTATE
&& d < PL_bufend && *d == ':' && *(d + 1) != ':') {
TOKEN(LABEL);
}
- /* Check for keywords */
- tmp = keyword(PL_tokenbuf, len, 0);
-
/* Is this a word before a => operator? */
if (*d == '=' && d[1] == '>') {
CLINE;