In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/3a7a94e274d5af79b9dacbe2adc9c4cabcf24a08?hp=34a81e2b89e80eb8560606e2b29037d4da625156>
- Log ----------------------------------------------------------------- commit 3a7a94e274d5af79b9dacbe2adc9c4cabcf24a08 Author: Rafael Garcia-Suarez <[email protected]> Date: Fri Mar 13 10:07:50 2009 +0100 Make eval{} (entertry) trappable by Safe ----------------------------------------------------------------------- Summary of changes: op.c | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) 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]; -- Perl5 Master Repository
