Skip to content

Commit

Permalink
more issues with /(?{ ... <<EOF })/
Browse files Browse the repository at this point in the history
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.
  • Loading branch information
iabyn committed Dec 25, 2016
1 parent 523e5ba commit b1b8fb6
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion toke.c
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down

0 comments on commit b1b8fb6

Please sign in to comment.