In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b1b8fb6a79343831521b5657b353f551f7a35074?hp=523e5ba86c48932471bfe24c81d5c860ade5fb44>
- Log ----------------------------------------------------------------- commit b1b8fb6a79343831521b5657b353f551f7a35074 Author: David Mitchell <[email protected]> Date: Sun Dec 25 20:14:41 2016 +0000 more issues with /(?{ ... <<EOF })/ RT #130398 My recent fix for issues with and /(?{...})/, v5.25.7-97-g98d5e3e, broke Method-Signatures and possibly TryCatch. This commit seems to fix them, but is based on observation rather than any deep understanding of what's going on. ----------------------------------------------------------------------- Summary of changes: toke.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/toke.c b/toke.c index 06a050e0d7..78879070fb 100644 --- a/toke.c +++ b/toke.c @@ -939,7 +939,8 @@ Perl_lex_grow_linestr(pTHX_ STRLEN len) /* Is the lex_shared linestr SV the same as the current linestr SV? * Only in this case does re_eval_start need adjusting, since it * points within lex_shared->ls_linestr's buffer */ - current = (linestr == PL_parser->lex_shared->ls_linestr); + current = ( !PL_parser->lex_shared->ls_linestr + || linestr == PL_parser->lex_shared->ls_linestr); bufend_pos = PL_parser->bufend - buf; bufptr_pos = PL_parser->bufptr - buf; -- Perl5 Master Repository
