diff options
| author | David Mitchell <davem@iabyn.com> | 2015-10-15 22:27:03 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 08:59:44 +0000 |
| commit | 40d04e100dda727a888fa21457c86dffdbe3b44f (patch) | |
| tree | 31b5095a110c4b9972921b63c8e44dde7d76eb7e /cop.h | |
| parent | 5da525e936e698594d244b27c2a587233b8ba165 (diff) | |
| download | perl-40d04e100dda727a888fa21457c86dffdbe3b44f.tar.gz | |
POPEVAL: don't set optype
don't quietly set the local var optype; instead explicitly set it
in the couple of places its actually needed. This allows us to
get rid of a bunch of PERL_UNUSED_VAR(optype);
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -753,7 +753,6 @@ struct block_eval { #define POPEVAL(cx) \ STMT_START { \ PL_in_eval = CxOLD_IN_EVAL(cx); \ - optype = CxOLD_OP_TYPE(cx); \ PL_eval_root = cx->blk_eval.old_eval_root; \ if (cx->blk_eval.cur_text && SvSCREAM(cx->blk_eval.cur_text)) \ SvREFCNT_dec_NN(cx->blk_eval.cur_text); \ |