diff options
author | David Mitchell <davem@iabyn.com> | 2015-12-18 22:09:58 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:18:36 +0000 |
commit | 6fb05a88b585ff8c2ecf0a3f089acceca1bae5b7 (patch) | |
tree | 0bde80eadc627bdb1e327670e4307cf2930914e0 /cop.h | |
parent | dbf345cf84e095f8e3db260cb18b8a3203c12745 (diff) | |
download | perl-6fb05a88b585ff8c2ecf0a3f089acceca1bae5b7.tar.gz |
give POP_SAVEARRAY() macro a cx arg
rather than just assuming that there's a 'cx' var in scope
Diffstat (limited to 'cop.h')
-rw-r--r-- | cop.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -647,7 +647,7 @@ struct block_format { SvREFCNT_inc_void(cx->blk_format.dfoutgv) /* Restore old @_ */ -#define POP_SAVEARRAY() \ +#define POP_SAVEARRAY(cx) \ STMT_START { \ AV *av = GvAV(PL_defgv); \ GvAV(PL_defgv) = cx->blk_sub.savearray; \ @@ -686,7 +686,7 @@ struct block_format { assert(AvARRAY(MUTABLE_AV( \ PadlistARRAY(CvPADLIST(cx->blk_sub.cv))[ \ CvDEPTH(cx->blk_sub.cv)])) == PL_curpad); \ - POP_SAVEARRAY(); \ + POP_SAVEARRAY(cx); \ av = MUTABLE_AV(PAD_SVl(0)); \ if (UNLIKELY(AvREAL(av))) \ /* abandon @_ if it got reified */ \ |