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.

1 files changed, 1 insertions, 0 deletions

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*);