[patch] log the interpreter id in warnings

Message-ID: <40847869.1000906@stason.org>

p4raw-id: //depot/perl@22721

1 files changed, 3 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index a76919061a..63438e881f 100644
--- a/perl.c
+++ b/perl.c
@@ -847,7 +847,9 @@ 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\n", sv);
+		    PerlIO_printf(Perl_debug_log, "leaked: 0x%p"
+                                  pTHX__FORMAT "\n",
+                                  sv pTHX__VALUE);
 		}
 	    }
 	}