From: Gerard Goossen <gerard@ggoossen.net>
Date: Tue, 24 Nov 2009 11:06:55 +0000 (+0100)
Subject: Also skip spaces after variable if we are within lexical brackets. Fixes #70091:... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae28bb2a75e3c50332b2684a214bf3dcd1bdb937;p=p5sagit%2Fp5-mst-13.2.git

Also skip spaces after variable if we are within lexical brackets. Fixes #70091: Segmentation fault in hash lookup in regex substitution
---

diff --git a/toke.c b/toke.c
index a4e9471..f214ddf 100644
--- 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)