diff options
| author | Bram Moolenaar <Bram@vim.org> | 2022-05-10 13:32:24 +0100 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2022-05-10 13:32:24 +0100 |
| commit | 0f267621c04883de010a6379217a5f182cc03dda (patch) | |
| tree | 7b2a18494084e0ffbf2802e09df83cd363f6820e /src/if_perl.xs | |
| parent | 0abc2871c105882ed1c1effb9a7757fad8a395bd (diff) | |
patch 8.2.4931: Crash with sequence of Perl commandsv8.2.4931
Problem: Crash with sequence of Perl commands.
Solution: Move PUTBACK to another line. (closes #10386)
Diffstat (limited to 'src/if_perl.xs')
| -rw-r--r-- | src/if_perl.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index c7177700ff..1afb1d4cf1 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -1373,6 +1373,7 @@ do_perleval(char_u *str, typval_T *rettv) SPAGAIN; SvREFCNT_dec(sv); sv = POPs; + PUTBACK; } } else @@ -1383,7 +1384,6 @@ do_perleval(char_u *str, typval_T *rettv) ref_map_free(); err = SvPV(GvSV(PL_errgv), err_len); } - PUTBACK; FREETMPS; LEAVE; } |