diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-20 18:03:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-20 18:03:27 +0000 |
| commit | 10067d9ac787a7e27e17175ac3e209ef628b8aec (patch) | |
| tree | 1ba3588a616a84416ce634ef6bf9318d01a1375b /cop.h | |
| parent | 0588a1501b88b68a0cd58bf7f47f7a5bef1e3c30 (diff) | |
| download | perl-10067d9ac787a7e27e17175ac3e209ef628b8aec.tar.gz | |
Extend PUSHFORMAT() to take a second parameter to set retop, to save
NULLing it and then reassigning.
p4raw-id: //depot/perl@33012
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -322,10 +322,10 @@ struct block_sub { cx->blk_sub.lval = 0; -#define PUSHFORMAT(cx) \ +#define PUSHFORMAT(cx, retop) \ cx->blk_sub.cv = cv; \ cx->blk_sub.gv = gv; \ - cx->blk_sub.retop = NULL; \ + cx->blk_sub.retop = (retop); \ cx->blk_sub.hasargs = 0; \ cx->blk_sub.dfoutgv = PL_defoutgv; \ SvREFCNT_inc_void(cx->blk_sub.dfoutgv) |