Mercurial > vim

changeset 28815:d26a95a16ce1 v8.2.4931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 748050f8ed41
children 708dfad50c43
files src/if_perl.xs src/version.c
diffstat 2 files changed, 3 insertions(+), 1 deletions(-) [+]
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;
     }
--- a/src/version.c
+++ b/src/version.c
@@ -747,6 +747,8 @@ static char *(features[]) =
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    4931,
+/**/
     4930,
 /**/
     4929,