Make eval{} (entertry) trappable by Safe

diff --git a/op.c b/op.c
index 5103efb..2596d8b 100644 (file)
--- 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];