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, 4 deletions

diff --git a/util.c b/util.c
index aa3a1ae481..df229da352 100644
--- a/util.c
+++ b/util.c
@@ -2391,10 +2391,7 @@ Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits,
     PERL_UNUSED_CONTEXT;
     PERL_ARGS_ASSERT_NEW_WARNINGS_BITFIELD;
 
-    buffer = (STRLEN*)
-        (specialWARN(buffer) ?
-         PerlMemShared_malloc(len_wanted) :
-         PerlMemShared_realloc(buffer, len_wanted));
+    buffer = (STRLEN*)rcpv_new(NULL, len_wanted, RCPVf_NO_COPY);
     buffer[0] = size;
     Copy(bits, (buffer + 1), size, char);
     if (size < WARNsize)