diff options
author | Branislav ZahradnĂk <barney@cpan.org> | 2020-12-11 17:19:16 +0100 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-12-27 09:46:09 -0700 |
commit | ee67f2540868d78287befae45cd503f1cf44911a (patch) | |
tree | 794e18c399837b99d6ef238f5474444cd739b56d /toke.c | |
parent | 0ba95c59b78e1c0733f9a491f242d4ab31128108 (diff) | |
download | perl-ee67f2540868d78287befae45cd503f1cf44911a.tar.gz |
Distinguish C- and perly- literals - PERLY_PAREN_OPEN
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -397,6 +397,7 @@ static struct debug_tokens { DEBUG_TOKEN (IVAL, PERLY_EQUAL_SIGN), DEBUG_TOKEN (IVAL, PERLY_EXCLAMATION_MARK), DEBUG_TOKEN (IVAL, PERLY_MINUS), + DEBUG_TOKEN (IVAL, PERLY_PAREN_OPEN), DEBUG_TOKEN (IVAL, PERLY_PERCENT_SIGN), DEBUG_TOKEN (IVAL, PERLY_PLUS), DEBUG_TOKEN (IVAL, PERLY_QUESTION_MARK), @@ -2087,7 +2088,7 @@ Perl_yyunlex(pTHX) PL_lex_allbrackets--; PL_lex_brackets--; yyc |= (3<<24) | (PL_lex_brackstack[PL_lex_brackets] << 16); - } else if (yyc == '('/*)*/) { + } else if (yyc == PERLY_PAREN_OPEN) { PL_lex_allbrackets--; yyc |= (2<<24); } @@ -5396,7 +5397,7 @@ yyl_interpcasemod(pTHX_ char *s) PL_lex_casestack[PL_lex_casemods] = '\0'; PL_lex_state = LEX_INTERPCONCAT; NEXTVAL_NEXTTOKE.ival = 0; - force_next((2<<24)|'('); + force_next((2<<24)|PERLY_PAREN_OPEN); if (*s == 'l') NEXTVAL_NEXTTOKE.ival = OP_LCFIRST; else if (*s == 'u') @@ -6516,7 +6517,7 @@ yyl_leftparen(pTHX_ char *s) PL_expect = XTERM; s = skipspace(s); PL_lex_allbrackets++; - TOKEN('('); + TOKEN(PERLY_PAREN_OPEN); } static int @@ -9291,7 +9292,7 @@ Perl_yylex(pTHX) NEXTVAL_NEXTTOKE.ival = 0; force_next('$'); NEXTVAL_NEXTTOKE.ival = 0; - force_next((2<<24)|'('); + force_next((2<<24)|PERLY_PAREN_OPEN); NEXTVAL_NEXTTOKE.ival = OP_JOIN; /* emulate join($", ...) */ force_next(FUNC); } |