DEBUG_LEAKING_SCALARS: add sv_debug_parent

Rather than just recording whether an SV was cloned (sv->sv_debug_cloned),
record the address of the SV we were cloned from.

1 files changed, 2 insertions, 2 deletions

diff --git a/sv.h b/sv.h
index bc75d1e199..a49954ddba 100644
--- a/sv.h
+++ b/sv.h
@@ -116,10 +116,10 @@ struct STRUCT_SV {		/* struct sv { */
 #ifdef DEBUG_LEAKING_SCALARS
     PERL_BITFIELD32 sv_debug_optype:9;	/* the type of OP that allocated us */
     PERL_BITFIELD32 sv_debug_inpad:1;	/* was allocated in a pad for an OP */
-    PERL_BITFIELD32 sv_debug_cloned:1;	/* was cloned for an ithread */
     PERL_BITFIELD32 sv_debug_line:16;	/* the line where we were allocated */
     U32		    sv_debug_serial;	/* serial number of sv allocation   */
-    char *	sv_debug_file;		/* the file where we were allocated */
+    char *	    sv_debug_file;	/* the file where we were allocated */
+    SV *	    sv_debug_parent;	/* what we were cloned from (ithreads)*/
 #endif
 };