Commit 781355fe31 for perl

commit 781355fe31e1bdfe7b3beda8aa4c6ee5d4f64386
Author: Richard Leach <rich+perl@hyphen-dash-hyphen.info>
Date:   Thu Sep 10 13:17:20 2026 +0000

    S_sv_dup_common: no bodies are allocated outside of PURIFY builds

diff --git a/sv.c b/sv.c
index 763b616f0f..728ead056b 100644
--- a/sv.c
+++ b/sv.c
@@ -16109,15 +16109,13 @@ S_sv_dup_common(pTHX_ const SV *const ssv, CLONE_PARAMS *const param)
             case SVt_PV:
                 assert(sv_type_details->body_size);
 #ifndef PURIFY
-                if (sv_type_details->arena) {
-                    new_body = S_new_body(aTHX_ sv_type);
-                    new_body
-                        = (void*)((char*)new_body - sv_type_details->offset);
-                } else
+                assert(sv_type_details->arena);
+                new_body = S_new_body(aTHX_ sv_type);
+                new_body
+                    = (void*)((char*)new_body - sv_type_details->offset);
+#else
+                new_body = new_NOARENA(sv_type_details);
 #endif
-                {
-                    new_body = new_NOARENA(sv_type_details);
-                }
             }
         have_body:
             assert(new_body);