Make eval{} (entertry) trappable by Safe

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index 5103efb215..2596d8bcd4 100644
--- a/op.c
+++ b/op.c
@@ -6540,6 +6540,8 @@ Perl_ck_eval(pTHX_ OP *o)
 	    /* establish postfix order */
 	    enter->op_next = (OP*)enter;
 
+	    CHECKOP(OP_ENTERTRY, enter);
+
 	    o = prepend_elem(OP_LINESEQ, (OP*)enter, (OP*)kid);
 	    o->op_type = OP_LEAVETRY;
 	    o->op_ppaddr = PL_ppaddr[OP_LEAVETRY];