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