From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 27 Oct 2004 22:50:57 +0000 (+0000)
Subject: include flags and refcount in the list of leaked scalars
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a548cda821d2121318f53907c736e60edf2b1881;p=p5sagit%2Fp5-mst-13.2.git

include flags and refcount in the list of leaked scalars

p4raw-id: //depot/perl@23426
---

diff --git a/perl.c b/perl.c
index 8bb1da7..33d7dfb 100644
--- a/perl.c
+++ b/perl.c
@@ -837,9 +837,10 @@ perl_destruct(pTHXx)
 	    svend = &sva[SvREFCNT(sva)];
 	    for (sv = sva + 1; sv < svend; ++sv) {
 		if (SvTYPE(sv) != SVTYPEMASK) {
-		    PerlIO_printf(Perl_debug_log, "leaked: 0x%p"
-                                  pTHX__FORMAT "\n",
-                                  sv pTHX__VALUE);
+		    PerlIO_printf(Perl_debug_log, "leaked: sv=0x%p"
+			" flags=0x08%"UVxf
+			" refcnt=%"UVuf pTHX__FORMAT "\n",
+			sv, sv->sv_flags, sv->sv_refcnt pTHX__VALUE);
 		}
 	    }
 	}