expand -DDEBUG_LEAKING_SCALARS to instrument the creation of each SV

p4raw-id: //depot/perl@24088

1 files changed, 8 insertions, 0 deletions

diff --git a/dump.c b/dump.c
index 8143bfbe71..9acd3c6a0e 100644
--- a/dump.c
+++ b/dump.c
@@ -1203,6 +1203,14 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
     sv_catpv(d, ")");
     s = SvPVX(d);
 
+#ifdef DEBUG_LEAKING_SCALARS
+    Perl_dump_indent(aTHX_ level, file, "ALLOCATED at %s:%d %s %s%s\n",
+	sv->sv_debug_file ? sv->sv_debug_file : "(unknown)",
+	sv->sv_debug_line,
+	sv->sv_debug_inpad ? "for" : "by",
+	sv->sv_debug_optype ? PL_op_name[sv->sv_debug_optype]: "(none)",
+	sv->sv_debug_cloned ? " (cloned)" : "");
+#endif
     Perl_dump_indent(aTHX_ level, file, "SV = ");
     switch (type) {
     case SVt_NULL: