Make eval{} (entertry) trappable by Safe

(cherry picked from commit 3a7a94e274d5af79b9dacbe2adc9c4cabcf24a08)

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index 6b1ae78ed9..39161376c2 100644
--- a/op.c
+++ b/op.c
@@ -6496,6 +6496,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];