From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 13 Mar 2009 09:07:50 +0000 (+0100)
Subject: Make eval{} (entertry) trappable by Safe
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a7a94e274d5af79b9dacbe2adc9c4cabcf24a08;p=p5sagit%2Fp5-mst-13.2.git

Make eval{} (entertry) trappable by Safe
---

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