Mercurial > vim
diff src/if_perl.xs @ 28815:d26a95a16ce1 v8.2.4931
patch 8.2.4931: Crash with sequence of Perl commands
Commit: https://github.com/vim/vim/commit/0f267621c04883de010a6379217a5f182cc03dda
Author: Bram Moolenaar <Bram@vim.org>
Date: Tue May 10 13:32:24 2022 +0100
patch 8.2.4931: Crash with sequence of Perl commands
Problem: Crash with sequence of Perl commands.
Solution: Move PUTBACK to another line. (closes https://github.com/vim/vim/issues/10386)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Tue, 10 May 2022 14:45:02 +0200 |
parents | 4c683d6c0a9d |
children | 89e1d67814a9 |
line wrap: on
line diff
--- 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; }