Also skip spaces after variable if we are within lexical brackets. Fixes #70091:...

diff --git a/toke.c b/toke.c
index a4e9471..f214ddf 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5441,7 +5441,7 @@ Perl_yylex(pTHX)
        d = s;
        {
            const char tmp = *s;
-           if (PL_lex_state == LEX_NORMAL)
+           if (PL_lex_state == LEX_NORMAL || PL_lex_brackets)
                s = SKIPSPACE1(s);
 
            if ((PL_expect != XREF || PL_oldoldbufptr == PL_last_lop)