From 69ae4519ab584cc86f0aa519698b760c4fc2ed0d Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Tue, 22 Nov 2022 15:56:31 +0100
Subject: util.c - clarify unusual use of rcpv_new()

---
 util.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'util.c')

diff --git a/util.c b/util.c
index bc129d272b..b0bf189ca1 100644
--- a/util.c
+++ b/util.c
@@ -2389,7 +2389,9 @@ Perl_new_warnings_bitfield(pTHX_ char *buffer, const char *const bits,
     PERL_UNUSED_CONTEXT;
     PERL_ARGS_ASSERT_NEW_WARNINGS_BITFIELD;
 
-    buffer = rcpv_new(buffer, len_wanted, RCPVf_NO_COPY);
+    /* pass in null as the source string as we will do the
+     * copy ourselves. */
+    buffer = rcpv_new(NULL, len_wanted, RCPVf_NO_COPY);
     Copy(bits, buffer, size, char);
     if (size < WARNsize)
         Zero(buffer + size, WARNsize - size, char);
-- 
cgit v1.2.1