File tree Expand file tree Collapse file tree 1 file changed +20
-21
lines changed Expand file tree Collapse file tree 1 file changed +20
-21
lines changed Original file line number Diff line number Diff line change @@ -9926,29 +9926,28 @@ Perl_yylex(pTHX)
99269926 return yyl_sigvar (aTHX_ s );
99279927 }
99289928
9929- {
9930- /* yyl_try() and its callees might consult PL_parser->saw_infix_sigil.
9931- On its return, we then need to set it to indicate whether the token
9932- we just encountered was an infix operator that (if we hadn't been
9933- expecting an operator) have been a sigil.
9934- */
9935- bool expected_operator = (PL_expect == XOPERATOR );
9936- int ret = yyl_try (aTHX_ s );
9937- switch (pl_yylval .ival ) {
9938- case OP_BIT_AND :
9939- case OP_MODULO :
9940- case OP_MULTIPLY :
9941- case OP_NBIT_AND :
9942- if (expected_operator ) {
9943- PL_parser -> saw_infix_sigil = 1 ;
9944- break ;
9945- }
9946- /* FALLTHROUGH */
9947- default :
9948- PL_parser -> saw_infix_sigil = 0 ;
9929+ /* yyl_try() and its callees might consult PL_parser->saw_infix_sigil.
9930+ On its return, we then need to set it to indicate whether the token we
9931+ just encountered was an infix operator that (if we hadn't been expecting
9932+ an operator) have been a sigil.
9933+ */
9934+ bool expected_operator = (PL_expect == XOPERATOR );
9935+ int ret = yyl_try (aTHX_ s );
9936+ switch (pl_yylval .ival ) {
9937+ case OP_BIT_AND :
9938+ case OP_MODULO :
9939+ case OP_MULTIPLY :
9940+ case OP_NBIT_AND :
9941+ if (expected_operator ) {
9942+ PL_parser -> saw_infix_sigil = 1 ;
9943+ break ;
99499944 }
9950- return ret ;
9945+ /* FALLTHROUGH */
9946+ default :
9947+ PL_parser -> saw_infix_sigil = 0 ;
99519948 }
9949+
9950+ return ret ;
99529951}
99539952
99549953
You can’t perform that action at this time.
0 commit comments