We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 66b1b8c commit 07cb05eCopy full SHA for 07cb05e
parser.h
@@ -10,6 +10,7 @@
10
*/
11
12
#define YYEMPTY (-2)
13
+#define PERL_IDENTIFIER_LENGTH (256 * MAX_UNICODE_UTF8_BYTES)
14
15
typedef struct {
16
YYSTYPE val; /* semantic value */
@@ -112,7 +113,7 @@ typedef struct yy_parser {
112
113
U8 lex_fakeeof; /* precedence at which to fake EOF */
114
U8 lex_flags;
115
COP *saved_curcop; /* the previous PL_curcop */
- char tokenbuf[ 256 * MAX_UNICODE_UTF8_BYTES ];
116
+ char tokenbuf[ PERL_IDENTIFIER_LENGTH ];
117
line_t herelines; /* number of lines in here-doc */
118
line_t preambling; /* line # when processing $ENV{PERL5DB} */
119
0 commit comments