diff options
| author | Gerard Goossen <gerard@ggoossen.net> | 2009-11-24 12:06:55 +0100 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-11-25 14:31:28 -0500 |
| commit | ae28bb2a75e3c50332b2684a214bf3dcd1bdb937 (patch) | |
| tree | 991a837a2e3b5942f5b5d8f0714cb4b4fb10284c /toke.c | |
| parent | e190e9b4a60aee60dfa0e20320d818bc26b18432 (diff) | |
| download | perl-ae28bb2a75e3c50332b2684a214bf3dcd1bdb937.tar.gz | |
Also skip spaces after variable if we are within lexical brackets. Fixes #70091: Segmentation fault in hash lookup in regex substitution
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |