commit 0f267621c04883de010a6379217a5f182cc03dda
author Bram Moolenaar <Bram@vim.org> Tue May 10 13:32:24 2022 +0100
committer Bram Moolenaar <Bram@vim.org> Tue May 10 13:32:24 2022 +0100
tree 7b2a18494084e0ffbf2802e09df83cd363f6820e
parent 0abc2871c105882ed1c1effb9a7757fad8a395bd

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

diff --git a/src/if_perl.xs b/src/if_perl.xs
index c717770..1afb1d4 100644
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -1373,6 +1373,7 @@
 		SPAGAIN;
 		SvREFCNT_dec(sv);
 		sv = POPs;
+		PUTBACK;
 	    }
 	}
 	else
@@ -1383,7 +1384,6 @@
 	    ref_map_free();
 	    err = SvPV(GvSV(PL_errgv), err_len);
 	}
-	PUTBACK;
 	FREETMPS;
 	LEAVE;
     }