summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2019-02-06 10:37:58 +1100
committerTony Cook <tony@develop-help.com>2019-02-21 14:32:42 +1100
commitd81b77352f66acde60db1b056b8eb3321b7b55fe (patch)
treeec3b60f4591a944cd5789901ac620219a958950b /pp.c
parentca8b93afd02ddde55c1aa9e6fbff9acdad31593d (diff)
downloadperl-d81b77352f66acde60db1b056b8eb3321b7b55fe.tar.gz
(perl #133778) adjust MARK if we extend the stack in pp_repeat
for a list repeat in scalar/void context
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 5965f1adc0..77dddcb8b3 100644
--- a/pp.c
+++ b/pp.c
@@ -1694,7 +1694,8 @@ PP(pp_repeat)
else {
dTOPss;
ASSUME(MARK + 1 == SP);
- XPUSHs(sv);
+ MEXTEND(SP, 1);
+ PUSHs(sv);
MARK[1] = &PL_sv_undef;
}
SP = MARK + 2;