Enhance PERL_TRACK_MEMPOOL so that it also emulates the PerlHost

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index babfe9d..a915dd9 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10395,6 +10395,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     param->flags = flags;
     param->proto_perl = proto_perl;
 
+    INIT_TRACK_MEMPOOL(my_perl->Imemory_debug_header, my_perl);
+
     PL_body_arenas = NULL;
     Zero(&PL_body_roots, 1, PL_body_roots);