From a548cda821d2121318f53907c736e60edf2b1881 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Wed, 27 Oct 2004 22:50:57 +0000 Subject: [PATCH] include flags and refcount in the list of leaked scalars p4raw-id: //depot/perl@23426 --- perl.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/perl.c b/perl.c index 8bb1da72..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); } } } -- 1.8.3.1