diff options
author | Tony Cook <tony@develop-help.com> | 2019-02-06 10:37:58 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-02-21 14:32:42 +1100 |
commit | d81b77352f66acde60db1b056b8eb3321b7b55fe (patch) | |
tree | ec3b60f4591a944cd5789901ac620219a958950b /pp.c | |
parent | ca8b93afd02ddde55c1aa9e6fbff9acdad31593d (diff) | |
download | perl-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.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; |