diff options
author | Branislav ZahradnĂk <barney@cpan.org> | 2020-12-11 17:19:09 +0100 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-12-27 09:46:09 -0700 |
commit | 3d9ccdfc9c042f91d022df1227f4b05ddeca831c (patch) | |
tree | 003566736db9c024cb22cd450aeadf9fc5cbd515 /toke.c | |
parent | 3d92c6b8aa91a3ee216dd4aafedacd8b6e129803 (diff) | |
download | perl-3d9ccdfc9c042f91d022df1227f4b05ddeca831c.tar.gz |
Distinguish C- and perly- literals - PERLY_COLON
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -391,6 +391,7 @@ static struct debug_tokens { DEBUG_TOKEN (IVAL, PERLY_BRACE_OPEN), DEBUG_TOKEN (IVAL, PERLY_BRACKET_CLOSE), DEBUG_TOKEN (IVAL, PERLY_BRACKET_OPEN), + DEBUG_TOKEN (IVAL, PERLY_COLON), DEBUG_TOKEN (IVAL, PERLY_COMMA), DEBUG_TOKEN (IVAL, PERLY_DOT), DEBUG_TOKEN (IVAL, PERLY_EQUAL_SIGN), @@ -5910,7 +5911,7 @@ yyl_colon(pTHX_ char *s) : "Unterminated attribute list" ) ); if (attrs) op_free(attrs); - OPERATOR(':'); + OPERATOR(PERLY_COLON); } got_attrs: @@ -5935,7 +5936,7 @@ yyl_colon(pTHX_ char *s) } PL_lex_allbrackets--; - OPERATOR(':'); + OPERATOR(PERLY_COLON); } static int |