Change cop_warnings from an SV holding the warnings bitmask to a

directly (shared) malloc()ed buffer holding the warnings bitmask.
This avoids bugs/crashes when the interpreter that created an optree
is freed but the optree remains in use by other interpreters.

p4raw-id: //depot/perl@27779

1 files changed, 15 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index be926c8f11..ebea9e13e9 100644
--- a/scope.c
+++ b/scope.c
@@ -764,6 +764,10 @@ Perl_leave_scope(pTHX_ I32 base)
 	    ptr = SSPOPPTR;
 	    Safefree(ptr);
 	    break;
+	case SAVEt_FREESHAREDPV:
+	    ptr = SSPOPPTR;
+	    PerlMemShared_free(ptr);
+	    break;
 	case SAVEt_CLEARSV:
 	    ptr = (void*)&PL_curpad[SSPOPLONG];
 	    sv = *(SV**)ptr;
@@ -984,6 +988,17 @@ Perl_leave_scope(pTHX_ I32 base)
 	    i = SSPOPINT;
 	    CopARYBASE_set((COP *)ptr, i);
 	    break;
+	case SAVEt_COP_WARNINGS:
+	    {
+		COP *const cop = SSPOPPTR;
+		ptr = SSPOPPTR;
+
+		if (!specialWARN(cop->cop_warnings))
+		    PerlMemShared_free(cop->cop_warnings);
+
+		cop->cop_warnings = ptr;
+	    }
+	    break;
 	case SAVEt_RE_STATE:
 	    {
 		const struct re_save_state *const state