From 6848aea2c844896efb347e6a210098c7dd447567 Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Mon, 31 Oct 2022 14:41:27 +0100
Subject: op.c - use refcounted pv pointers for cop_warnings

this allows multiple ops to share the same underlying
warning bit vector. the vectors are not deduped, however
they are efficiently copied and shared.
---
 perl.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index a76fbf7905..67906d7019 100644
--- a/perl.c
+++ b/perl.c
@@ -409,6 +409,7 @@ perl_construct(pTHXx)
 
 #ifdef USE_ITHREADS
     PL_compiling.cop_file = NULL;
+    PL_compiling.cop_warnings = NULL;
 #endif
 
     Zero(PL_sv_consts, SV_CONSTS_COUNT, SV*);
-- 
cgit v1.2.1