diff options
| author | Branislav Zahradník <barney@cpan.org> | 2020-12-11 17:19:03 +0100 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-12-27 09:46:09 -0700 |
| commit | da4bce7d622f45b752d496660faa400b8d582c7f (patch) | |
| tree | 624095dc63d8237bc327df79f9b266162e108ec1 /perly.y | |
| parent | 5adeeefb95fca6c5e6fabf5929c025d5b432d4b0 (diff) | |
| download | perl-da4bce7d622f45b752d496660faa400b8d582c7f.tar.gz | |
Distinguish C- and perly- literals - PERLY_DOT
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -45,11 +45,12 @@ %token <ival> GRAMPROG GRAMEXPR GRAMBLOCK GRAMBARESTMT GRAMFULLSTMT GRAMSTMTSEQ GRAMSUBSIGNATURE -%token <ival> '-' '+' '@' '%' '&' '=' '.' +%token <ival> '-' '+' '@' '%' '&' '=' %token <ival> PERLY_BRACE_OPEN %token <ival> PERLY_BRACE_CLOSE %token <ival> PERLY_BRACKET_OPEN %token <ival> PERLY_BRACKET_CLOSE +%token <ival> PERLY_DOT %token <ival> PERLY_SEMICOLON %token <opval> BAREWORD METHOD FUNCMETH THING PMFUNC PRIVATEREF QWLIST @@ -214,7 +215,7 @@ block : PERLY_BRACE_OPEN remember stmtseq PERLY_BRACE_CLOSE ; /* format body */ -formblock: '=' remember PERLY_SEMICOLON FORMRBRACK formstmtseq PERLY_SEMICOLON '.' +formblock: '=' remember PERLY_SEMICOLON FORMRBRACK formstmtseq PERLY_SEMICOLON PERLY_DOT { if (parser->copline > (line_t)$1) parser->copline = (line_t)$1; $$ = block_end($remember, $formstmtseq); |