From 0f267621c04883de010a6379217a5f182cc03dda Mon Sep 17 00:00:00 2001
From: Bram Moolenaar <Bram@vim.org>
Date: Tue, 10 May 2022 13:32:24 +0100
Subject: [PATCH] patch 8.2.4931: Crash with sequence of Perl commands

Problem:    Crash with sequence of Perl commands.
Solution:   Move PUTBACK to another line. (closes #10386)
---
 src/if_perl.xs | 2 +-
 src/version.c  | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

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;
     }
diff --git a/src/version.c b/src/version.c
index 0a08909cbf..97fbf1717f 100644
--- a/src/version.c
+++ b/src/version.c
@@ -746,6 +746,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    4931,
 /**/
     4930,
 /**/