diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-11-02 17:28:48 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-08 17:55:52 -0800 |
| commit | 5450b4d821fab857cc229e3d2904470db00469c2 (patch) | |
| tree | 235703f349ebf3424ca928a46e4cc8418f54e0be /dump.c | |
| parent | 716c4914fdaea8c408dec12ceccabd6040eb1262 (diff) | |
| download | perl-5450b4d821fab857cc229e3d2904470db00469c2.tar.gz | |
Make &CORE::exit respect vmsish exit hint
by removing the hint from the exit op itself and just having pp_exit
look in the cop hint hash, where it is already stored (as a result of
having been in %^H at compile time).
&CORE:: subs intentionally lack a nextstate op (cop) so they can see
the hints in the caller’s nextstate op.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -764,10 +764,6 @@ const struct flag_to_name op_open_names[] = { {OPpOPEN_OUT_CRLF, ",OUT_CRLF"} }; -const struct flag_to_name op_exit_names[] = { - {OPpEXIT_VMSISH, ",EXIT_VMSISH"} -}; - const struct flag_to_name op_sassign_names[] = { {OPpASSIGN_BACKWARDS, ",BACKWARDS"}, {OPpASSIGN_CV_TO_GV, ",CV2GV"} @@ -810,7 +806,6 @@ const struct op_private_by_op op_private_names[] = { {OP_DIE, C_ARRAY_LENGTH(op_die_names), op_die_names }, {OP_DELETE, C_ARRAY_LENGTH(op_delete_names), op_delete_names }, {OP_EXISTS, C_ARRAY_LENGTH(op_exists_names), op_exists_names }, - {OP_EXIT, C_ARRAY_LENGTH(op_exit_names), op_exit_names }, {OP_FLIP, C_ARRAY_LENGTH(op_flip_names), op_flip_names }, {OP_FLOP, C_ARRAY_LENGTH(op_flip_names), op_flip_names }, {OP_GV, C_ARRAY_LENGTH(op_gv_names), op_gv_names }, |