summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2021-01-22 17:57:08 +0000
committerPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2021-02-04 14:20:53 +0000
commita1325b902d57aa7a99bed3d2ec0fa5ce42836207 (patch)
tree37ce967cbad3faa9d65d10d33aab6919ec353616 /op.c
parent99dbf64538ee1c097b9f7e93df5a45dbf1fa3e22 (diff)
downloadperl-a1325b902d57aa7a99bed3d2ec0fa5ce42836207.tar.gz
Initial attempt at feature 'try'
* Add feature, experimental warning, keyword * Basic parsing * Basic implementation as optree fragment See also https://github.com/Perl/perl5/issues/18504
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/op.c b/op.c
index 4fb8c7199e..e507d32446 100644
--- a/op.c
+++ b/op.c
@@ -12753,6 +12753,8 @@ Perl_ck_eval(pTHX_ OP *o)
op_free(o);
enter = alloc_LOGOP(OP_ENTERTRY, NULL, NULL);
+ if(o->op_flags & OPf_SPECIAL)
+ enter->op_flags |= OPf_SPECIAL;
/* establish postfix order */
enter->op_next = (OP*)enter;