projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
todo and perldelta updates
[p5sagit/p5-mst-13.2.git]
/
perl.c
diff --git
a/perl.c
b/perl.c
index
f26acb4
..
3569e93
100644
(file)
--- a/
perl.c
+++ b/
perl.c
@@
-1645,7
+1645,7
@@
Perl_call_sv(pTHX_ SV *sv, I32 flags)
SAVETMPS;
push_return(PL_op->op_next);
- PUSHBLOCK(cx, CXt_EVAL, PL_stack_sp);
+ PUSHBLOCK(cx, (CXt_EVAL|CXp_TRYBLOCK), PL_stack_sp);
PUSHEVAL(cx, 0, 0);
PL_eval_root = PL_op; /* Only needed so that goto works right. */