summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-10-12 15:33:56 +0100
committerDavid Mitchell <davem@iabyn.com>2016-02-03 08:59:42 +0000
commitdd748f4511ead9174b04b875630d7947834c9ed1 (patch)
tree0ad9da5987bff2285c9a4765ee6e21ac64332af5 /pp_sys.c
parent4df352a81ba92beb6467d6dafdf988d8aba963c4 (diff)
downloadperl-dd748f4511ead9174b04b875630d7947834c9ed1.tar.gz
remove newpm param from POPBLOCK() macro.
Since all core usage of POPBLOCK now immediately restores PL_curpm, there's no need to copy the old value to a temp var specified by the caller; just make POPBLOCK itself restore PL_curpm in the same way that it restores all the other PL_ vars.
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 50c7433787..6c978eb257 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1524,7 +1524,7 @@ PP(pp_leavewrite)
assert(CxTYPE(cx) == CXt_FORMAT);
SP = PL_stack_base + cx->blk_oldsp; /* ignore retval of formline */
POPFORMAT(cx);
- POPBLOCK(cx,PL_curpm);
+ POPBLOCK(cx);
retop = cx->blk_sub.retop;
cxstack_ix--;