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

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;