In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/4d7e83bba2968618bd9026ce17ae87f5529e5f38?hp=5149e17891a64b8b39440a943d065e188e327008>
- Log -----------------------------------------------------------------
commit 4d7e83bba2968618bd9026ce17ae87f5529e5f38
Author: Father Chrysostomos <spr...@cpan.org>
Date: Fri Jan 12 08:37:18 2018 -0800
Fix goto-into-string-eval under PERL_UNICODE
More precisely, goto-to-jump-into-the-parameter-of-a-string-eval,
which is tested in goto.t as of 6d90e98384, but fails as of that
commit under PERL_UNICODE, because entereval gets a second kid
op (a hintseval op) and ‘looks like’ a list operator, which
6d90e98384 generally forbad.
The easiest way to fix this is simply to add another exception.
-----------------------------------------------------------------------
Summary of changes:
pp_ctl.c | 1 +
1 file changed, 1 insertion(+)
diff --git a/pp_ctl.c b/pp_ctl.c
index 6e5f34dbd5..4da40e39b3 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2673,6 +2673,7 @@ S_dofindlabel(pTHX_ OP *o, const char *label, STRLEN len,
U32 flags, OP **opstac
&& OP_CLASS(o) != OA_LOGOP
&& o->op_type != OP_LINESEQ
&& o->op_type != OP_SREFGEN
+ && o->op_type != OP_ENTEREVAL
&& o->op_type != OP_RV2CV) {
OP * const kid = cUNOPo->op_first;
if (OP_GIMME(kid, 0) != G_SCALAR || OpHAS_SIBLING(kid))
--
Perl5 Master Repository
